Loader

Date: February 1983
Type: Program
Platform(s): TS 1000

Appears on

Cassette to accompany the February 1983 issue of Synchro-Sette.

Gallery

Loader

Source Code

   1 POKE 16418,0
   2 LET B$="% \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@% "
   4 PRINT "% \;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;% "
   5 FOR N=1 TO 22
   6 PRINT B$
   7 NEXT N
   8 PRINT "% \!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!% "
   9 PRINT AT 1,5;"% %2%/%8%3% %P%R%O%G%R%A%M% %L%O%A%D%E%R% "
  10 PRINT AT 3,5;" ADDITIO%N ";TAB 28;"1";AT 5,5;" SUBTRACTIO%N ";TAB 28;"2";AT 7,5;" WHITE-HOL%E ";TAB 28;"3";AT 9,5;" TAPESTR%Y ";TAB 28;"4";AT 11,5;" PAYROL%L ";TAB 28;"5";AT 13,5;" SUPERSCROL%L ";TAB 28;"6";AT 15,5;" INVERSCROL%L ";TAB 28;"7";AT 17,5;" BULLETI%N ";TAB 28;"8" 
  20 PRINT AT 22,5;" ENTER ONE OF ABOVE ";AT 22,5;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% "
 100 LET A$=INKEY$
 110 IF A$="" OR CODE A$<29 OR CODE A$>37 THEN GOTO 20
 120 GOTO VAL A$*1000
1000 LOAD "ADDITIO%N"
2000 LOAD "SUBTRACTIO%N"
3000 LOAD "WHITE-HOL%E"
4000 LOAD "TAPESTR%Y"
5000 LOAD "PAYROL%L"
6000 LOAD "SUPERSCROL%L"
7000 LOAD "INVERSCROL%L"
8000 LOAD "BULLETI%N"
9000 LOAD ""
9998 SAVE "LOADE%R"
9999 RUN 

People

No people associated with this content.

Scroll to Top