Run Magazine ReRun 1986 September & October/rerun-1986-09-10.d64/notepad

Commodore BASIC | 1986-01-01 | 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