home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8701.d64 / load-einfach (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  876b  |  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.