Content
Image Gallery
Screen Routines
1 REM \3E\26\2A\0C\40\06\20\23\77\10\FC\06\14\23\23\77\11\1F\00\19\77\10\F6\23\06\20\23\77\10\FC\C9\3E\15\CD\1D\15\3E\21\CD\1D\15\EF\04\34\CD\A7\0E\2A\0C\40\09\23\54\5D\7E\23\01\1F\00\ED\B0\2B\77\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9\2A\0C\40\ED\5B\10\40\44\4D\A7\ED\52\C8\60\69\7E\FE\76\28\03\C6\80\77\23\18\ED
10 PRINT ,," OPTIONS:"
20 PRINT ,,,,"(A) BORDER"
30 PRINT ,,"(B) LINE SCROLL"
40 PRINT ,,"(C) SCREEN FILL"
50 PRINT ,,"(D) INVERT SCREEN"
55 POKE 16546,21
60 PRINT AT 21,0;"PRESS LETTER OF DESIRED OPTION"
70 RAND USR 16545
80 IF INKEY$="A" THEN GOTO 1000
90 IF INKEY$="B" THEN GOTO 2000
100 IF INKEY$="C" THEN GOTO 3000
110 IF INKEY$="D" THEN GOTO 4000
120 GOTO 70
1000 CLS
1010 PRINT AT 21,0;"INPUT DESIRED CHARACTER."
1020 INPUT A$
1030 CLS
1040 POKE 16515,CODE A$(1)
1050 RAND USR 16514
1060 IF INKEY$="" THEN GOTO 1060
1065 CLS
1070 RUN
2000 CLS
2010 PRINT AT 21,0;"INPUT STATEMENT."
2020 INPUT A$
2025 POKE 16546,10
2030 PRINT AT 10,0;A$
2040 FOR A=1 TO 64
2050 RAND USR 16545
2055 NEXT A
2060 CLS
2070 RUN
3000 RAND USR 16580
3010 FOR A=1 TO 20
3020 NEXT A
3025 CLS
3030 RUN
4000 FOR A=1 TO 10
4010 RAND USR 16598
4020 NEXT A
4030 GOTO 70
5000 SAVE "1009%3"
5010 GOTO 1
People
No people associated with this content.