NOVA 1000

Gallery

Source Code

   0 REM \76\76\01\FF\01\F6\FF\CD\C8\0A\11\0B\00\19\ED\5B\32\40\ED\B0\C9\CD\23\0F\F6\FF\CD\C8\0A\11\22\00\19\11\00\7E\01\FF\01\ED\B0\21\FF\7D\22\04\40\2B\36\3E\2B\F9\2B\2B\22\02\40\CD\2B\0F\C3\76\06\DD\21\05\7E\C9\CD\4D\7E\CD\DC\7E\CD\57\7E\CD\87\7E\CD\3D\7E\CD\36\7E\06\07\CD\2C\7E\3E\EC\08\CD\AB\7E\CD\75\7F\DD\21\05\7E\C3\A4\02\00\00\00\00\00\00\00\10\FE\C9\F5\C5\D5\E5\C3\3E\02\3A\71\7F\CB\4F\28\04\AF\32\27\40\DD\E1\C3\A2\02\06\02\CD\2C\7E\21\7A\7F\18\4A\06\29\CD\30\7E\ED\5B\73\7F\7B\B2\28\09\2A\10\40\19\11\05\00\18\09\2A\0C\40\19\11\01\00\20\00\19\3A\72\7F\E6\1F\47\07\07\07\C6\3B\08\0E\08\18\1D\06\73\CD\32\7E\3A\71\7F\CB\57\20\05\08\D6\09\08\C9\AF\2A\10\40\11\21\00\ED\52\01\08\01\CB\FC\3E\DD\C3\41\00\3A\71\7F\CB\47\C8\11\97\7F\2A\07\40\01\18\FC\CD\CE\7E\01\9C\FF\CD\CE\7E\01\F6\FF\CD\CE\7E\3E\1C\85\18\09\3E\1C\09\3C\38\FC\ED\42\3D\E6\3F\12\13\C9\11\84\7F\21\07\7F\06\08\37\1A\CE\00\BE\3F\38\03\12\18\03\3E\1C\12\1B\2B\CB\7E\28\02\1B\2B\10\E9\C9\26\26\80\22\26\80\22\26\80\22\26\AF\2A\16\40\11\0F\00\ED\52\7E\21\78\7F\77\0E\20\06\00\C9\CD\28\7F\18\04\CD\28\7F\EB\ED\B0\18\19\2A\16\40\E3\E5\21\78\7F\CD\4D\00\CD\1C\11\11\06\00\19\11\7A\7F\01\0B\00\C9\E1\22\16\40\C9\2A\16\40\E5\E7\2A\10\40\7E\FE\C6\20\10\CD\00\13\21\40\03\EB\ED\52\38\05\CD\DD\12\30\03\01\00\00\ED\43\73\7F\18\D5\00\00\00\00\00\07\14\00\00\C9\00\00\3F\0D\1C\1C\0E\1C\1C\0E\1C\1C\0E\1C\1C\00\00\33\34\3B\26\00\1D\1C\1C\1C\00\3B\1D\1B\1C\00\00\00\00\00\00\13\C3\00\7E\C3\08\7F\C3\1B\7F\C3\20\7F\C3\46\7F\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   3 REM N0VA 1.0 (C)1986 W.RIGTER
   4 REM SEE 9900 REM
  10 CLEAR 
  19 REM VIEWABLE ARRAY 
  20 DIM A$(2000)
  30 LET A$(1 TO 34)="% % %N%O%V%A% %1%0%0%0% %V%1%.%0% %(%C%)%8%6% %W%.%R%I%G%T%E%R% % % "
  40 LET B$="NOVA 1000"
  49 REM TRANSFER ABOVE RAMTOP
  50 RAND USR 16535
  99 REM START NOVA 1000
 100 RAND USR 32668
 120 FOR N=0 TO 21
 130 POKE 32626,N+1
 140 PRINT AT N,N;B$;
 150 NEXT N
 199 REM LINE=1 FOR FAST- SLOW 
 200 POKE 32626,1
 210 CLS 
 219 REM OFFSET=1/TOP OF ARRAY
 220 RAND USR 32680+1
 239 REM FILL ARRAY
 240 FOR N=35 TO 25*34 STEP 34
 250 LET A$(N TO N+33)=A$(1 TO 34)
 260 NEXT N
 269 REM LINES=22
 270 POKE 32626,22
 280 LET A$(817 TO 918)=">PRESS ANY KEY TO RETURN TO DFILE<"
 289 REM TURN OFF COMMAND 
 290 POKE 32625,3
 299 REM SCROLL LEFT
 300 FOR N=1 TO 34
 310 RAND USR 32680+N
 320 NEXT N
 330 LET A=25
 339 REM SCROLL UP
 340 FOR N=1 TO 800 STEP 34
 350 POKE 32626,A
 360 RAND USR 32680+N
 370 LET A=A-1
 380 NEXT N
 390 IF INKEY$="" THEN GOTO 330
 399 REM LINES=1
 400 POKE 32626,1
 409 REM OFFSET=0 /NORMAL SCREEN
 410 RAND USR 32680+0
 440 PRINT A$(1 TO 704);
 449 REM LINES=24
 450 POKE 32626,24
 459 REM REPEAT ON
 460 POKE 32625,2
2801 LET A$(851 TO 918)=">PRESS ANY KEY TO RETURN TO DFILE<"
7999 REM REDEFINE COM VAR TO S$
8000 DIM S$(USR 32671)
8029 REM SET REAL TIME CLOCK
8030 LET S$(1 TO 24)="10:11:05:00 "
8039 REM TRANSFER S$ TO RTC
8040 RAND USR 32674
8050 PRINT AT 12,0;"     WAITING FOR 10:11:12:13    "
8099 REM TRANSFER RTC TO S$ AND TEST
8100 IF S$(USR 32677+1 TO 11)>"10:11:12:13" THEN GOTO 8200
8110 GOTO 8100
8209 REM TRACE 0N
8210 POKE 32625,3
8219 REM 22 LINES
8220 POKE 32626,22
8230 CLS 
8240 PRINT AT 12,14;"HELLO"
8250 FOR N=0 TO 700 STEP 33
8260 RAND USR 32680+N
8270 RAND USR 32680+0
8280 NEXT N
8290 GOTO 120
9000 SAVE "V%1"
9010 LIST 3
9020 STOP 
9900 REM THIS PROGRAM DOES NOT HVE A COMMAND LINE. YOU MAY HAVE TO HIT A KEY SEVERAL TIMES BEFORE THE PROGRAM STOPS. PRESS SHIFT/1 THEN ENTER TO SEE BASIC LISTIG. START WITH RUN. PAUSE 0 WILL STOP ALL AUTO FUNCTIONS.