Screen Routines

Gallery

Source Code

   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