Carousel Volume 2 #1/carousel.iso/comdore/64apps/notepad

Commodore BASIC | 1988-12-29 | 3.6 KB | 72 lines

1 REM  *-- 64 NOTEPAD LOADER PROGRAM --*
2 REM *-- BOB KODADEK, ASTON PA 19014 --*
3 PRINT"READING DATA, WAIT ABOUT TEN SECONDS...":ML=51072:FORI=ML TO ML+735
4 READ A:POKEI,A:CK=CK+A:NEXT:IFCK<>90927 THENPRINT"DATA ERROR!":END
5 PRINTCHR$(147)SPC(255)"64 NOTEPAD"
6 PRINTSPC(83)"1. PRESS CTRL-O TO OPEN WINDOW."
7 PRINTSPC(83)"2. PRESS CTRL-C TO CLOSE WINDOW."
8 PRINTSPC(83)"3. PRESS RUN/STOP-RESTORE TO DISABLE."
9 PRINTSPC(43)"4. TO RE-ENABLE, ENTER SYS 51072.":SYS 51072
10 DATA120,173,020,003,141,059,202,173,021,003,141,060
11 DATA202,169,171,141,020,003,169,199,141,021,003,162
12 DATA009,160,001,142,061,202,140,063,202,140,062,202
13 DATA169,000,141,139,202,088,096,173,141,002,201,004
14 DATA208,011,165,197,201,038,208,005,173,139,202,240
15 DATA003,108,059,202,169,255,141,139,202,032,231,255
16 DATA169,000,133,212,173,134,002,141,064,202,120,032
17 DATA059,201,032,070,201,169,064,133,251,169,186,133
18 DATA252,162,000,160,039,169,118,145,251,200,169,117
19 DATA145,251,165,251,024,105,040,133,251,144,002,230
20 DATA252,232,224,016,208,229,162,039,169,111,157,064
21 DATA186,169,119,157,192,188,202,016,243,162,016,160
22 DATA000,185,089,202,056,233,064,157,064,186,232,200
23 DATA192,007,208,241,032,141,201,088,032,059,201,174
24 DATA061,202,172,062,202,024,032,240,255,056,032,240
25 DATA255,152,201,040,048,003,056,233,040,168,142,061
26 DATA202,140,062,202,032,011,202,165,204,240,008,164
27 DATA211,177,209,009,128,145,209,032,228,255,240,239
28 DATA201,003,208,025,032,059,201,032,117,201,032,199
29 DATA201,173,064,202,141,134,002,169,000,141,139,202
30 DATA133,198,076,188,254,201,145,208,010,174,061,202
31 DATA224,010,048,033,076,155,200,201,017,208,009,174
32 DATA061,202,224,023,240,019,208,011,201,157,208,016
33 DATA172,062,202,192,001,240,006,032,059,201,032,210
34 DATA255,076,049,200,201,019,208,009,032,059,201,032
35 DATA050,201,076,049,200,201,147,208,006,032,016,201
36 DATA076,049,200,201,013,208,020,174,061,202,224,023
37 DATA240,010,032,059,201,232,160,001,024,032,240,255
38 DATA076,049,200,201,020,208,017,169,032,164,211,145
39 DATA209,172,062,202,192,001,240,189,169,157,208,179
40 DATA201,029,048,181,201,127,016,177,172,062,202,192
41 DATA038,240,002,208,162,174,061,202,224,023,240,161
42 DATA032,059,201,032,210,255,160,001,232,024,032,240
43 DATA255,076,049,200,162,023,142,061,202,174,061,202
44 DATA160,001,024,032,240,255,162,037,169,032,032,210
45 DATA255,202,016,248,206,061,202,173,061,202,201,008
46 DATA208,227,162,009,160,001,024,032,240,255,096,072
47 DATA164,211,177,209,041,127,145,209,104,096,162,000
48 DATA181,000,157,000,176,189,000,005,157,000,177,189
49 DATA000,006,157,000,178,189,000,007,157,000,179,189
50 DATA000,217,157,000,180,189,000,218,157,000,181,189
51 DATA000,219,157,000,182,232,208,212,096,162,000,189
52 DATA000,005,157,000,186,189,000,006,157,000,187,189
53 DATA000,007,157,000,188,232,208,235,096,169,054,133
54 DATA001,162,064,189,000,186,157,000,005,173,063,202
55 DATA157,000,217,232,208,241,162,000,189,000,188,157
56 DATA000,007,189,000,187,157,000,006,173,063,202,157
57 DATA000,218,157,000,219,232,208,232,141,134,002,141
58 DATA135,002,169,055,133,001,096,120,169,054,133,001
59 DATA162,000,189,000,177,157,000,005,189,000,178,157
60 DATA000,006,189,000,179,157,000,007,189,000,180,157
61 DATA000,217,189,000,181,157,000,218,189,000,182,157
62 DATA000,219,232,208,217,162,057,189,000,176,149,000
63 DATA232,208,248,162,042,189,000,176,149,000,202,208
64 DATA248,088,096,173,141,002,201,004,208,039,165,197
65 DATA201,041,208,033,160,100,162,000,232,208,253,200
66 DATA208,248,238,063,202,173,063,202,201,016,208,005
67 DATA169,000,141,063,202,120,032,117,201,032,141,201
68 DATA088,096,000,000,000,000,000,000,000,066,079,066
69 DATA075,079,068,065,068,069,075,044,065,083,084,079
70 DATA078,044,080,065,067,049,057,056,053,078,079,084
71 DATA069,080,065,068