home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 93
/
64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_A.d64
/
lader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
588b
|
25 lines
100 rem freezer-ladeprogramm
105 :
110 rem (c)1987 by patrick urban
112 :
115 ifsa=820then250
120 sa=820:fori=satosa+6:reada:pokei,a:nexti
130 data133,95,134,96,76,191,163
140 poke88,0:poke89,192:poke90,0:poke91,192:poke780,0:poke781,160:syssa
150 poke88,0:poke89,0:poke90,0:poke91,0:poke780,0:poke781,224:syssa
205 poke65092,76:poke65093,80:poke65094,247
210 fori=58523to58536:readd:pokei,d:next
220 data 70,82,69,69,90,69,82,32,66,89,32,80,65,84
225 :
230 load"freezer",8,1
235 :
240 :
250 rem drucker (max 18 daten)
260 i=64677:c=0:forz=1to21:readd:next
270 readd:ifd=333then280
275 pokei+c,d:c=c+1:goto270
280 poke64673,c
290 data 27,32,88,27,32,76,27,50,27,65,7,146,13,333
300 :
350 poke1,53:new