home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-08_2002_CSW_Side_A.d64
/
screen-view
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
649b
|
26 lines
2 p=p+1
4 ifp=1then14
6 ifp=2thenloadf$(1),8,1
8 ifp=3thenloadf$(2),8,1
10 ifp=4then22
12 ifp=5then30
14 poke53280,0:poke53281,11:print"[147][153]":p=1
16 input" [194]ildname: ";f$:f$(1)="eda."+f$:f$(2)="edb."+f$
18 f$(3)="edc."+f$:x$=f$(1):gosub50:ife>0then14
20 goto2
22 x$=f$(3):gosub50:ife>0then14
24 open1,8,2,f$(3):input#1,c$,c1,c2,c3:close1
26 x$=c$:gosub50:ife>0then14
28 sys57812 c$,8:poke780,0:poke781,0:poke782,56:sys65493:goto2
30 fori=0to39:poke56256+i,0:poke1984+i,160:next
32 poke53272,31:poke53270,peek(53270)or16
34 poke53281,c1:poke53282,c2:poke53283,c3
36 wait198,1
38 poke53270,peek(53270)and239:poke53272,21
40 print"[147][155]":printtab(9)"weitere bilder (j/n) ?"
42 getk$:ifk$=""then42
44 ifk$="j"thenp=0:goto2
46 ifk$="n"thenprint"[147]":end
48 goto42
50 e=0:open1,8,0,x$:open2,8,15:input#2,e:close2:close1:return