home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / load-einfach (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  876 b   |  54 lines
  1. 100 a=18:b=1
  2. 110 rem einlesen des blocks
  3. 120 open15,8,15:open2,8,2,"#"
  4. 130 fori=1to8:t$(i)="":nexti
  5. 140 ifa=0orb=0thenclose2:close15:end
  6. 150 gosub540
  7. 160 k=4
  8. 170 fori=1to8
  9. 180 print#15,"b-p 2";k-2
  10. 190 get#2,p$:p=asc(p$+chr$(0))
  11. 200 ifp<>130andp<>194then270
  12. 210 forj=1to16
  13. 220 print#15,"b-p 2";j+k
  14. 230 get#2,c$
  15. 240 t$(i)=t$(i)+c$
  16. 250 nextj
  17. 260 k=k+32
  18. 270 nexti
  19. 280 rem abfrage
  20. 290 k=17
  21. 300 fori=1to8
  22. 310 ift$(i)=""then420
  23. 320 print"[147]"t$(i)
  24. 330 print"was soll angehaengt werden ?"
  25. 340 print" ,8[146]:"
  26. 350 print" ,8,1[146]"
  27. 360 print" n[146]ichts"
  28. 370 gete$:ife$=""then370
  29. 380 ife$="8"thenaf$=",8:":af=8:goto480
  30. 390 ife$="1"thenaf$=",8,1":af=1:goto480
  31. 400 ife$="n"then420
  32. 410 goto370
  33. 420 k=k+32
  34. 430 nexti
  35. 440 ifw=1thengosub600
  36. 450 a=a1:b=b1:close2:close15
  37. 460 print"[147]bitte warten !"
  38. 470 goto110
  39. 480 w=1
  40. 490 ifaf=8thenprint#15,"b-p 2";k
  41. 500 ifaf=1thenprint#15,"b-p 2";k-1
  42. 510 print#2,chr$(160);af$;
  43. 520 goto420
  44. 530 run
  45. 540 rem lesen
  46. 550 print#15,"u1 2 0";a;b
  47. 560 print#15,"b-p 2 0"
  48. 570 get#2,a$,b$
  49. 580 a1=asc(a$+chr$(0)):b1=asc(b$+chr$(0))
  50. 590 return
  51. 600 rem schreiben
  52. 610 print#15,"u2 2 0";a;b
  53. 620 return
  54.