home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / hi-eddi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  41 lines
  1. 1 ifa<2thena=a+2:load"hi-exe",8,1
  2. 2 ifa=3then7
  3. 3 ifa=4then31
  4. 4 ifa=6then39
  5. 5 input"modus";c:poke780,c:poke56,13:clr:w$="123456":sys3328
  6. 6 ifpeek(8037)and64thena=3:load"menue",8,1
  7. 7 sys3337:a=peek(8064)
  8. 8 ona+1gosub9,12,37,13,20,26,13,13,21,22,14:goto7
  9. 9 open3,8,0,"$0":get#3,c$,c$
  10. 10 get#3,c$,c$,l$,h$:ifc$=""thenclose3:wait198,1:return
  11. 11 print256*asc(h$+chr$(0))+asc(l$+chr$(0));:sys3334:goto10
  12. 12 print"[147]sequenz:":print"  "w$:input"";w$:iflen(w$)<2then12
  13. 13 return
  14. 14 poke8115,8:print"[147]g=grafik":ifpeek(8073)>127thenprint"f=farbbild"
  15. 15 print"s=sprite":print"z=zeichensatz":print"";
  16. 16 getc$:ifc$<>"g"andc$<>"f"andc$<>"s"andc$<>"z"then16
  17. 17 printc$:poke780,asc(c$):h$=w$:input"name";w$:sys3331:w$=h$:h$=""
  18. 18 open1,8,15,h$:input#1,a,h$:printa;h$:ifa>0thenwait198,1
  19. 19 close1:return
  20. 20 poke631,34:poke198,1:h$="":input"[147]";h$:goto18
  21. 21 a=8075:goto23
  22. 22 a=8079
  23. 23 d=peek(8074):c=peek(a+d):print"[147]f"2*d+1:print"schrittweite:",c
  24. 24 inputc:ifc<1orc>160then24
  25. 25 pokea+d,c:return
  26. 26 input"[147]1.bild";d:c=(dand7)
  27. 27 input"2.bild (oder 0)";d:c=c+8*(dand7):ifd>0thenc=c+64
  28. 28 ifd=0thenprint"gross";:gosub34:ifc$="j"thenc=c+128
  29. 29 print"drucken";:gosub34:ifc$="n"then32
  30. 30 ifa=5thena=4:load"hi-print",8,1
  31. 31 poke780,c:sys3328:print"nochmal";:gosub34:ifc$="j"then26
  32. 32 ifa=5thenreturn
  33. 33 a=1:goto1
  34. 34 print" (j/n)";
  35. 35 getc$:ifc$<>"j"andc$<>"n"then35
  36. 36 printc$:return
  37. 37 print"spiegeln";:gosub34:ifc$="n"goto14
  38. 38 a=6:load"hi-spiegel",8,1
  39. 39 print"[147]1=runter 2=hoch 3=rechts 4=links":inputc$
  40. 40 poke49199,val(c$):sys49152:a=3:goto1
  41.