start tok64 d64-ZyM1av
0 REM   *******************************
1 REM   ***                         ***
2 REM   ***   antecknings-blocket   ***
3 REM   ***                         ***
4 REM   ***  ---------------------  ***
5 REM   ***                         ***
6 REM   ***    av  mattias meyer    ***
7 REM   ***                         ***
8 REM   ***       i jan. 1987       ***
9 REM   ***    (c)    club  64      ***
10 REM  *******************************
11 :
12 PRINTCHR$(147):POKE53281,6:POKE53280,14:POKE646,14
13 PRINTSPC(13)"U{sh asterisk*11}I"
14 PRINTSPC(13)"BanteckningsB"
15 PRINTSPC(13)"J{sh asterisk}IblocketU{sh asterisk}K"
16 PRINTSPC(13)"{right*2}J{sh asterisk*7}K{down}"
17 PRINTSPC(13)"{reverse on}laddar{reverse off}"
18 FORi=49152TO49415
19 READa:POKEi,a:x=x+a:POKE53280,a:NEXTi
20 IFx<>38638THENPRINT"{home}{reverse on}{space*15}fel i data{space*15}{reverse off}":END
21 POKE49152+214,14:POKE53280,14
22 SYS49152
23 PRINTCHR$(147):PRINTSPC(47)"*** anteckningsblocket ***"
24 PRINTSPC(6)"av mattias meyer i jan. 1987"
25 NEW
26 DATA 76,251,192,162,0,134,251,162,194,134,252,162,232,134,253,162,197
27 DATA 134,254,162,0,134,182,162,199,134,183,160,0,177,251,145,182,165,252
28 DATA 197,254,240,22,165,251,201,255,240,24,230,251,165,182,201,255,240
29 DATA 28,230,182,169,0,201,0,240,224,165,251,197,253,208,228,240,24,169
30 DATA 255,133,251,230,252,169,0,201,0,240,220,169,255,133,182,230,183,169
31 DATA 0,201,0,240,216,96,165,203,201,4,240,4,76,49,234,96,169,0,141,4,192
32 DATA 169,4,141,8,192,169,0,141,12,192,169,8,141,16,192,169,0,141,20,192
33 DATA 169,194,141,24,192,32,3,192,169,0,141,4,192,169,199,141,8,192,169
34 DATA 232,141,12,192,169,202,141,16,192,169,0,141,20,192,169,4,141,24,192
35 DATA 32,3,192,169,0,141,4,192,169,194,141,8,192,169,232,141,12,192,169
36 DATA 197,141,16,192,169,0,141,20,192,169,199,141,24,192,32,3,192,169,0
37 DATA 133,251,169,216,133,252,160,0,169,1,145,251,230,251,208,250,166,252
38 DATA 224,218,240,8,230,252,162,0,224,0,240,232,230,252,160,0,145,251,200
39 DATA 192,232,208,249,76,49,234,96,234,120,169,94,141,20,3,169,192,141
40 DATA 21,3,88,96
stop tok64
(bastext 1.0)