home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / rescratch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  50 lines
  1. 10 DIMN(300):C$=CHR$(34):POKE53280,0:POKE53281,0:POKE808,225
  2. 20 FORI=0TO4:READG$(I):NEXT:DI=18
  3. 30 J=0:PRINT"[147][158]RESCRATCH BY STEFAN FREYER":PRINT
  4. 40 PRINT"ART  NAME             [146]":K=1:L=DI:OPEN15,8,15,"I0
  5. 50 [153]:[159]8,8,2,"#2":F[178]0
  6. 60 [152]15,"U1:"2;0;L;K:[141]470
  7. 70 [129]I[178]0[164]1:[161]#8,A$:[141]440:I(I)[178][198](A$):[130]:A[178]2:[141]460
  8. 80 [161]#8,A$:[141]440:A[178][198](A$)[175]7
  9. 90 E$[178]"":[129]I[178]0[164]1:[161]#8,A$:[141]440:H(I)[178][198](A$):[130]
  10. 100 [129]I[178]3[164]18:[161]#8,A$:E$[178]E$[170]A$:[130]
  11. 110 [139]E$[178]""[167]130
  12. 120 [153] G$(A);" ";C$;E$;[163]11)C$:[139]A[178]0[167][137]290
  13. 130 F[178]F[170]1:[139]F[179]8[167]A[178]F[172]32[170]2:[141]460:[137]80
  14. 140 [139]I(0)[178]0[167]160
  15. 150 L[178]I(0):K[178]I(1):F[178]0:[137]60
  16. 160 [160]8:[139]J[167][153]"ICH VALIDIERE!":[159]1,8,15,"V":[160]1
  17. 170 [141]470:[160]15:[151]808,237:[128]
  18. 180 [152]15,"U1:"2;0;H(0);H(1):[142]
  19. 190 D[178]2:[153]"LISTSPUR, SEKTOR: ";
  20. 200 [141]180:[129]I[178]0[164]1:[161]#8,A$:[141]440:N(I)[178][198](A$):[151]808,225
  21. 210 [153]N(I)"CMD ";:[130]:[153]:[153]"ONLISTSPUR, SEKTOR: ";
  22. 220 [139]N(0)[178]0[167][153]:[142]
  23. 230 [152]15,"B-F"0;N(0);N(1):H(0)[178]N(0):H(1)[178]N(1):N(D)[178]N(0)
  24. 240 N(D[170]1)[178]N(1):D[178]D[170]2
  25. 250 [139]DS[178]0[167]200
  26. 260 [153]:[153]"DAS FILE WURDE SCHON UEBERSCHRIEBENWAIT!":M[178][168](M):A[178]F[172]32[170]2
  27. 270 [129]I[178]2[164]D[171]4[169]2:[152]15,"B-F:"0;N(I);N(I[170]1):[130]
  28. 280 H(0)[178]L:H(1)[178]K:[141]180:[137]460:H(1)[178]Z%(1):Z%(D)[178]Z%(0)
  29. 290 [153]"ZURUECKHOLEN? (J/N)"
  30. 300 [161] A$:[139] A$[178]"" [167] 300
  31. 310 [139]A$[179][177]"J" [167] 130
  32. 320 M[178]0:[153]"PRINTBLOECKE WERDENBELEGT:":N(0)[178]H(0):[141]190:[139]M[167]130
  33. 330 [153]"CLRPWAITROGRAMM-, SWAITEQUENTIELLES-, UWAITSER- ODER   RWAITELATIVES FILE ?"
  34. 340 [161]F$:[139]F$[179][177]"P"[175]F$[179][177]"S"[175]F$[179][177]"U"[175]F$[179][177]"R"[167]340
  35. 350 [153]:[139]F$[178]"P"[167]G[178]130:[137]390
  36. 360 [139]F$[178]"U"[167]G[178]131:[137]390
  37. 370 [139]F$[178]"R"[167]G[178]132:[137]390
  38. 380 G[178]129
  39. 390 [153]"PRINTONFILE WIRD ZURUECKGEHOLT!"
  40. 400 H(0)[178]L:H(1)[178]K:[141]180:H(1)[178]N(1):N(D)[178]N(0)
  41. 410 A[178]F[172]32[170]2:[141]460:[152]8,[199](G);
  42. 420 B[178]((D[171]2)[173]2)[170]1:[153]"DAS PROGRAMM HAT EINE LAENGE VON SYS"B"WAIT"
  43. 430 [152]15,"U2:"2;0;L;K:J[178]1:[153]"BLOECKEN!":[137]130
  44. 440 [139]A$[178]""[167]A$[178][199](0)
  45. 450 [142]
  46. 460 [152]15,"B-P:"2;A
  47. 470 [132]15,E1,D$,E3,E2:[139]E1[178]0[167][142]
  48. 480 [153]E1,D$,E3,E2:[151]808,237:[128]
  49. 490 [131]"DEL","SEQ","PRG","USR","REL"
  50.