RSLOAD

Source Code

    1 BORDER 0: PAPER 0: LOAD "rsload C"SCREEN$ : PAUSE 260: INPUT p$: CLS 
   20 LET A=0: LET B=A
   30 PRINT AT A,B;P$
   40 IF |(1,1)=2 THEN LET A=A+1
   45 IF A<0 THEN LET A=0
   50 IF |(1,1)=1 THEN LET A=A-1
   55 IF A>21 THEN LET A=21
   60 IF |(1,1)=4 THEN LET B=B-1
   65 IF B<0 THEN LET B=0
   70 IF |(1,1)=8 THEN LET B=B+1
   71 IF |(1,1)=5 THEN INPUT A$: SAVE A$SCREEN$ 
   72 IF |(1,1)=9 THEN INPUT B$: LOAD B$SCREEN$ 
   75 IF B>31 THEN LET B=31
   76 IF |(1,1)=6 THEN INVERSE 1
   77 IF |(1,1)=10 THEN INVERSE 0
   78 IF |(2,1) THEN FLASH 1
   79 IF |(2,1)=0 THEN FLASH 0
   81 IF INKEY$=" " THEN BEEP 1,1: BEEP 1,1: CLS : GO TO 30
   82 IF INKEY$="1" THEN INK 1
   83 IF INKEY$="2" THEN INK 2
   84 IF INKEY$="3" THEN INK 3
   85 IF INKEY$="4" THEN INK 4
   86 IF INKEY$="5" THEN INK 5
   87 IF INKEY$="6" THEN INK 6
   88 IF INKEY$="7" THEN INK 7
   89 IF INKEY$="0" THEN INK 0
   90 IF INKEY$="9" THEN BEEP 1,1: COPY 
   91 IF INKEY$="8" THEN INPUT P$
   92 GO TO 30
 9998 SAVE "RSLOAD" LINE 1: SAVE "rsload C"CODE 16384,6912