NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

Source Code

   0 REM  itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\FF itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\F6\FF\CD\C8



NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\EDB\ED\B0\C9\CD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
F\F6\FF\CD\C8

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\FF itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\ED\B0\FFD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
BE

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B\F9

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\CD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
F\C3\DDE\C9\CDDE\CD\DCE\CDE\CDE\CDDE\CDE\CD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
CEE\EC\CD\ABE\CDF\DDE\C3\A4

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\FE\C9\F5\C5\D5\E5\C3E

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
AF\CBF\AF\DD\E1\C3\A2

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\CD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
CEAFA\CDE\EDBFB\B2

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
AF\E6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\C6B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D\CDEAF\CB\D6\C9\AF

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\CB\FCE\DD\C3

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
AF\CB\C8F

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\FC\CD\CEE itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\FF\CD\CEE itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\F6\FF\CD\CEEE itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"CE itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"CC\FC\EDD\E6F\C9FF itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\CE

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\BEFE itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B\CBE

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B\E9\C9\AF

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
F

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\EDEF

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\C9\CDF\CDF\EB\ED\B0

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A\E3\E5F\CDD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
AF itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\C9\E1\C9

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
A\E5\E7

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
AE\FE\C6\CD

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\EB\ED\CD\DD itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\EDF\D5

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\C9

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
F

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
D itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
B itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
\C3

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
E\C3F\C3 itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-58445 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"BF\C3F\C3F

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top

NOVA 1000

Products: NOVA 1000
Developer(s): Wilf Rigter
Date: 1986
Type: Cassette
Platform(s): TS 1000

Content

Appears On

Related Products

Multi-tasking program for the TS1000. Features include a real-time clock, automatic program line tracer, auto-repeat on all keys, and more.

Related Articles

Related Content

Image Gallery

NOVA 1000

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.
Scroll to Top
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 \n2801 LET A$(851 TO 918)=">PRESS ANY KEY TO RETURN TO DFILE<" \n7999 REM REDEFINE COM VAR TO S$ \n8000 DIM S$(USR 32671) \n8029 REM SET REAL TIME CLOCK \n8030 LET S$(1 TO 24)="10:11:05:00 " \n8039 REM TRANSFER S$ TO RTC \n8040 RAND USR 32674 \n8050 PRINT AT 12,0;" WAITING FOR 10:11:12:13 " \n8099 REM TRANSFER RTC TO S$ AND TEST \n8100 IF S$(USR 32677+1 TO 11)>"10:11:12:13" THEN GOTO 8200 \n8110 GOTO 8100 \n8209 REM TRACE 0N \n8210 POKE 32625,3 \n8219 REM 22 LINES \n8220 POKE 32626,22 \n8230 CLS \n8240 PRINT AT 12,14;"HELLO" \n8250 FOR N=0 TO 700 STEP 33 \n8260 RAND USR 32680+N \n8270 RAND USR 32680+0 \n8280 NEXT N \n8290 GOTO 120 \n9000 SAVE "V%1" \n9010 LIST 3 \n9020 STOP \n9900 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.
Scroll to Top