home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / hi-eddi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  36 lines
  1. 50 ifa<2thena=a+2:load"hi-exe",8,1
  2. 60 ifa=3then150
  3. 70 ifa=4then650
  4. 100 input"betriebsart";c:poke780,c:poke56,13:clr:w$="123456":sys3328
  5. 110 ifpeek(8073)and64thena=3:load"menue",8,1
  6. 150 sys3337:a=peek(8064)
  7. 160 ona+1gosub200,250,300,290,400,600,290,290,500,510,300:goto150
  8. 200 open3,8,0,"$0":get#3,c$,c$
  9. 210 get#3,c$,c$,l$,h$:ifc$=""thenclose3:wait198,1:return
  10. 220 print256*asc(h$+chr$(0))+asc(l$+chr$(0));:sys3334:goto210
  11. 250 print"[147]sequenz:":print"  "w$:input"";w$:iflen(w$)<2then250
  12. 290 return
  13. 300 poke8115,8:print"[147]g=grafikbild":ifpeek(8073)>127thenprint"f=farbbild"
  14. 310 print"s=sprite":print"z=zeichensatz":print" -->";
  15. 320 getc$:ifc$<>"g"andc$<>"f"andc$<>"s"andc$<>"z"then320
  16. 330 printc$:poke780,asc(c$):h$=w$:input"filename";w$:sys3331:w$=h$:h$=""
  17. 340 open1,8,15,h$:input#1,a,h$:printa;h$:ifa>0thenwait198,1
  18. 350 close1:return
  19. 400 poke631,34:poke198,1:h$="":input"[147]";h$:goto340
  20. 500 a=8075:goto520
  21. 510 a=8079
  22. 520 d=peek(8074):c=peek(a+d):print"[147]f"2*d+1:print"schrittweite:"c,
  23. 530 inputc:ifc<1orc>160then530
  24. 540 pokea+d,c:return
  25. 600 input"[147]nummer 1.bild";d:c=(dand7)
  26. 610 input"nummer 2.bild (0=nur 1 bild)";d:c=c+8*(dand7):ifd>0thenc=c+64
  27. 620 ifd=0thenprint"gross";:gosub800:ifc$="j"thenc=c+128
  28. 630 print"drucken";:gosub800:ifc$="n"then660
  29. 640 ifa=5thena=4:load"hi-print",8,1
  30. 650 poke780,c:sys3328:print"nochmal";:gosub800:ifc$="j"then600
  31. 660 ifa=5thenreturn
  32. 670 a=1:goto50
  33. 800 print" ? (j/n)";
  34. 810 getc$:ifc$<>"j"andc$<>"n"then810
  35. 820 printc$:return
  36.