start tok64 d64-ROgpHI
0 REM
1 REM           mr.m:s
2 REM
3 REM        small screen
4 REM
5 REM sys pd 1991
6 REM
10 FORi=49152TO49484:READx:c=c+x:POKEi,x:NEXT
11 IFc-44903THENSTOP
12 DATA120,162,,134,248,169,196,133,249,165,248,157,,194,165,249,157,
13 DATA195,165,248,24,105,8,133,248,144,2,230,249,232,208,232,169,,133
14 DATA248,133,250,169,208,133,249,169,196,133,251,165,1,72,169,51,133,1
15 DATA160,7,177,248,133,2,169,,162,3,70,2,70,2,106,202,16,248,145,250
16 DATA136,16,235,165,248,24,105,8,133,248,133,250,144,4,230,249,230,251
17 DATA230,252,208,214,104,133,1,200,132,248,169,160,133,249,160,,169
18 DATA255,145,248,200,208,251,230,249,165,249,201,192,208,241,169,12
19 DATA162,,157,,128,157,,129,157,,130,157,,131,232,208,241,169,,141,32
20 DATA208,169,187,141,17,208,169,13,141,24,208,169,149,141,,221,169,63
21 DATA141,1,221,169,7,141,20,3,169,193,141,21,3,88,96,162,19,160,,177
22 DATA248,168,185,,194,133,73,185,,195,133,74,160,1,177,248,168,185,
23 DATA194,133,75,185,,195,133,76,160,7,177,75,74,74,74,74,17,73,145,250
24 DATA136,16,243,165,248,24,105,2,133,248,144,2,230,249,165,250,24,105
25 DATA8,133,250,144,2,230,251,202,16,186,165,250,24,105,160,133,250,144
26 DATA2,230,251,96,162,4,181,72,72,202,16,250,165,1,72,41,254,133,1,198
27 DATA2,16,20,169,,133,248,169,80,133,250,169,4,133,249,169,160,133,251
28 DATA169,4,133,2,32,179,192,32,179,192,32,179,192,32,179,192,32,179
29 DATA192,104,133,1,162,,104,149,72,232,224,5,208,248,76,49,234
80 PRINT"{clear}{down*2}{right}sys pd, 1991
81 PRINT"{down}{right}mr.m:s small screen
82 PRINT"{down}{right}ett program som halverar sk[rmbredden
83 PRINT"{right}men bibeh]ller 40 tecken/rad
84 PRINT"{down}{right}starta: sys49152
stop tok64
(bastext 1.0)