start tok64 d64-J6Serz
10 REM     *** line  blinker ***
20 REM
30 REM       by levon saldamli
40 REM
50 REM     (poseidon of paragon)
60 REM
70 REM  copyright 1989 levon saldamli
80 REM
90 REM
100 ad=49152:PRINT"{clear}":ch=0:FORt=0TO255
110 READa$:h=ASC(LEFT$(a$,1))-48:l=ASC(RIGHT$(a$,1))-48:h=h+7*(h>9):l=l+7*(l>9)
120 vl=h*16+l:POKEad+t,vl:PRINT"{home}bytes left:"255-t"{left}{space*2}":ch=ch+vl:NEXT
130 IFch<>30602THENPRINT"?data{space*2}error":END
140 PRINT"if you have a drive, then insert a disk
150 PRINT"and press return to save machine code.
160 GETa$:IFa$=""THEN160
170 IFa$<>CHR$(13)THENEND
180 OPEN1,8,1,"-blinker,p,w":PRINT#1,CHR$(0);CHR$(192);:PRINT"{down*2}please wait{!*3}"
190 FORt=0TO255:PRINT"{home}bytes left:"255-t"{left} ":PRINT#1,CHR$(PEEK(49152+t));:NEXT
200 CLOSE1:END
210 DATA78,a9,00,8d,0e,dc,a9,01,8d,1a,d0,8d,19,d0,a9,1b,8d,11,d0,a9
220 DATA31,8d,12,d0,a9,01,8d,d5,c0,8d,d6,c0,a9,2c,a2,c0,8d,14,03,8e
230 DATA15,03,58,60,a9,01,4c,55,c0,a9,00,85,fb,85,fc,a6,d6,e0,00,f0
240 DATA10,a5,fb,18,69,28,85,fb,a5,fc,69,00,85,fc,ca,d0,f0,a5,fc,18
250 DATA69,d8,85,fc,60,8d,19,d0,ce,d5,c0,f0,08,a9,31,8d,12,d0,4c,31
260 DATAea,a9,02,8d,d5,c0,ad,d4,c0,a6,d6,8e,d4,c0,cd,d4,c0,f0,17,85
270 DATAd6,20,ab,c0,20,c2,c0,a0,27,91,fb,88,10,fb,ad,d4,c0,85,d6,4c
280 DATA5d,c0,ee,d6,c0,ae,d6,c0,bd,da,c0,c9,ff,d0,08,a2,00,8e,d6,c0
290 DATAbd,da,c0,48,20,ab,c0,68,4c,7f,c0,a5,d5,8d,80,c0,c9,4f,d0,0b
300 DATAa5,d3,c9,28,90,05,a9,27,8d,80,c0,4c,31,c0,a2,4f,a5,d6,c9,18
310 DATAb0,01,2c,a2,27,8e,80,c0,ad,86,02,60,0e,02,05,00,00,00,06,0b
320 DATA0c,0e,03,0f,07,01,01,07,0f,03,0e,0c,0b,06,ff,03,0e,0e,06,0e
330 DATA06,06,ff,00,00,00,00,00,00,00,00,00,00,00,00,00
stop tok64
(bastext 1.0)