home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C128Software
/
STICK-FIGURES
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
39 lines
0 REM FROM JGPD DISK # 74
8 POKE53280,6:POKE53281,6
10 PRINT"[147][159] [211]TICK [198]IGURES BY [218]APPER7
15 [153]" (null)HE LEN-64 IS FULL OF SURPRISES.
20 PRINT"[212]HIS [194][193][211][201][195] PROGRAM DISPLAYS 40 STICK
22 [153]"FIGURES IN A ROW IN THE MIDDLE OF THE
24 PRINT"SCREEN. [212]HEY LOOK LIKE PAPER DOLLS. [206]O
26 [153]"SPRITES, CHARACTER REDIFINITIONS, OR
28 PRINT"OTHER CONVENTIONAL METHOD IS USED TO
30 [153]"DISPLAY THEM. RIGHT$NSTEAD, MANIPULATION OF
32 PRINT"RASTER INTERRUPT AND REDEFINING
34 [153]"LOCATION 16383 CAUSES THEM TO APPEAR.
36 PRINT"[215]HEN FINISHED.. [208]RESS [210][213][206]/[211][212][207][208]-[210][197][211][212][207][210][197].
38 [153]"RIGHT$ WON'T WORK WITH (null)UPER (null)NAPSHOT.
40 PRINT" [208]RESS <[211][208][193][195][197]> TO SEE 40 FIGURES.":WAIT197,7
50 POKE53280,12:POKE53281,12:PRINT"[147]
80 [129] L[178]49170 [164] 49315:[135] V:[151] L,V:[130]
90 [158] 49170
100 [131] 120, 169, 127, 141, 13, 220, 169, 1
101 [131] 141, 26, 208, 169, 19, 133, 2, 169
102 [131] 27, 141, 17, 208, 173, 106, 192, 141
103 [131] 18, 208, 169, 56, 141, 20, 3, 169
104 [131] 192, 141, 21, 3, 88, 96, 173, 25
105 [131] 208, 141, 25, 208, 41, 1, 240, 25
106 [131] 198, 2, 16, 4, 169, 18, 133, 2
107 [131] 166, 2, 189, 125, 192, 141, 17, 208
108 [131] 189, 144, 192, 141, 255, 63, 189, 106
109 [131] 192, 141, 18, 208, 138, 240, 6, 104
110 [131] 168, 104, 170, 104, 64, 76,
13106 4
111 [131] 247, 177, 175, 173, 171, 169, 167, 165
112 [131] 163, 161, 159, 157, 155, 153, 151, 149
113 [131] 147, 145, 1, 11, 11, 11, 11, 11
114 [131] 11, 11, 11, 11, 11, 11, 11, 11
115 [131] 11, 11, 11, 11, 11, 3, 0, 66
116 [131] 36, 24, 24, 24, 153, 90, 60, 60
117 [131] 66, 153, 165, 129, 165, 66, 60, 0
118 [131] 0, 255, 0, 255, 0, 255, 0, 255