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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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
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.
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.