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