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