Loader

Date: December 1982
Type: Program
Platform(s): TS 1000

Appears on

Cassette to accompany the December 1982 issue of Synchro-Sette.

Gallery

Loader

Source Code

   1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 
   2 FAST 
   3 RAND USR 16514
   4 POKE 16418,0
   5 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % ";AT 2,1;"\: DECEMBER 1982 LOADER PROGRAM\ :"
   6 PRINT AT 5,1;" SEASONS GREETING%S ";TAB 28;"%-% %1"
   7 PRINT AT 7,1;" MILEAG%E ";TAB 28;"%-% %2"
   8 PRINT AT 9,1;" CHAINSA%W ";TAB 28;"%-% %3"
   9 PRINT AT 11,1;" FRENZ%Y ";TAB 28;"%-% %4"
  10 PRINT AT 13,1;" INVENTOR%Y ";TAB 28;"%-% %5"
  11 PRINT AT 15,1;" SPACE DOCKIN%G ";TAB 28;"%-% %6"
  12 PRINT AT 17,1;" QUOT%E ";TAB 28;"%-% %7"
  13 PRINT AT 19,1;" BULLETI%N ";TAB 28;"%-% %8"
  14 SLOW 
  20 PRINT AT 22,6;"\: ENTER ONE OF ABOVE\ :";AT 22,6;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% "
  30 LET A$=INKEY$
  40 IF A$="" THEN GOTO 20
  50 IF CODE A$<28 OR CODE A$>37 THEN GOTO 20
  60 FAST 
  70 CLS 
  80 SLOW 
  90 GOTO 100*VAL A$
 100 LOAD "SEASONS GREETING%S"
 200 LOAD "MILEAG%E"
 300 LOAD "CHAINSA%W"
 400 LOAD "FRENZ%Y"
 500 LOAD "INVENTOR%Y"
 600 LOAD "SPACE DOCKIN%G"
 700 LOAD "QUOT%E"
 800 LOAD "BULLETI%N"
 900 LOAD ""
9998 SAVE "LOADE%R"
9999 RUN 

People

No people associated with this content.

Scroll to Top