Content
Image Gallery
Source Code
1 REM E
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
A
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
C\FC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57144 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
\F6\FC\C9E\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57144 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"DE\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57144 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D\EF\CD\A7
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
E
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
A
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
CDE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57144 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57144 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
\ED\B0
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
B\C9
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
A
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
CE\FE\F6\F4\C9
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
A
Skip to content
Screen Routines
Content
Image 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
People
No people associated with this content.
C\EDBD\A7\ED\C8E\FE\C6\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
\n1000 CLS
\n1010 PRINT AT 21,0;"INPUT DESIRED CHARACTER."
\n1020 INPUT A$
\n1030 CLS
\n1040 POKE 16515,CODE A$(1)
\n1050 RAND USR 16514
\n1060 IF INKEY$="" THEN GOTO 1060
\n1065 CLS
\n1070 RUN
\n2000 CLS
\n2010 PRINT AT 21,0;"INPUT STATEMENT."
\n2020 INPUT A$
\n2025 POKE 16546,10
\n2030 PRINT AT 10,0;A$
\n2040 FOR A=1 TO 64
\n2050 RAND USR 16545
\n2055 NEXT A
\n2060 CLS
\n2070 RUN
\n3000 RAND USR 16580
\n3010 FOR A=1 TO 20
\n3020 NEXT A
\n3025 CLS
\n3030 RUN
\n4000 FOR A=1 TO 10
\n4010 RAND USR 16598
\n4020 NEXT A
\n4030 GOTO 70
\n5000 SAVE "1009%3"
\n5010 GOTO 1
