home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / hi-e(itoh8510) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 1 ifa<2thena=a+2:load"hi-exe",8,1
  2. 2 ifa=3then6
  3. 3 ifa=4then25
  4. 4 input"b-art";c:poke780,c:poke56,13:clr:w$="123456":sys3328
  5. 5 ifpeek(8073)and64thena=3:load"menue",8,1
  6. 6 sys3337:a=peek(8064):ona+1gosub7,10,12,11,18,24,11,11,19,20,12:goto6
  7. 7 open3,8,0,"$0":get#3,c$,c$
  8. 8 get#3,c$,c$,l$,h$:ifc$=""thenclose3:wait198,1:return
  9. 9 print256*asc(h$+chr$(0))+asc(l$+chr$(0));:sys3334:goto8
  10. 10 print"[147]seq.:":print"  "w$:input"";w$:iflen(w$)<2then10
  11. 11 return
  12. 12 poke8115,8:print"[147]g[146]-bild":ifpeek(8073)>127thenprint"f[146]-bild"
  13. 13 print"s[146]prite":print"z[146]-satz":print"->";
  14. 14 getc$:ifc$<>"g"andc$<>"f"andc$<>"s"andc$<>"z"then14
  15. 15 printc$:poke780,asc(c$):h$=w$:input"f-name";w$:sys3331:w$=h$:h$=""
  16. 16 open1,8,15,h$:input#1,a,h$:printa;h$:ifa>0thenwait198,1
  17. 17 close1:return
  18. 18 poke631,34:poke198,1:h$="":input"[147]";h$:goto16
  19. 19 a=8075:goto21
  20. 20 a=8079
  21. 21 d=peek(8074):c=peek(a+d):print"[147]f"2*d+1:print"s-weite:"c,
  22. 22 inputc:ifc<1orc>160then22
  23. 23 pokea+d,c:return
  24. 24 a=4:load"hi-p(itoh8510)",8,1
  25. 25 input"[147]s1:b-nr.(0=kb)";c:poke3415,cand7:ifc=0thend=40:goto27
  26. 26 input"ssp.(<=39;0=voll)  0[157][157][157]";d:ifd<0ord>39then26
  27. 27 poke3388,d:c=40+d:ifc>40thenc=40
  28. 28 input"s2:b-nr.(0=kb)";d:poke3435,dand7:ifd=0then30
  29. 29 print"esp.(>0;<=";c;"[157]) ";c;:input"[157][157][157][157][157]";d:ifd<1ord>cthen29
  30. 30 poke3451,d:c=640-(40-peek(3388)+d)*8
  31. 31 print"spc(=>0;<=";c;"[157])  ";c;:input"[157][157][157][157][157][157]";d:ifd<0ord>cthen31
  32. 32 c=int(d/256):poke3383,c:input"druck  j[157][157][157]";c$:ifc$<>"j"then34
  33. 33 poke3381,d-c*256:sys3328:input"nochmal  j[157][157][157]";c$:ifc$="j"then25
  34. 34 a=1:goto1
  35.