home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 107
/
Tiger_Disk_107_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
diskname-ma.v1.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
50 lines
10 poke53281,11:poke53280,11
20 print"[147][155] disknamemaker v1.0"
21 print"1994 by mr.smart/art design"
22 print"-----------------------------"
23 print"bitte eine taste druecken
30 [139][194](203)[179][177]64[167]30
40 [139][194](203)[178]64[167]40
50 [129]i[178]1[164]5:[161]a$:[130]
51 [153]"load"
60 [153]"";:[159]1,8,15,"i"
70 [159]2,8,2,"#"
80 [152]1,"u1 2 0 18 0"
90 [152]1,"b-p 2 144"
100 [129]i[178]1[164]23
110 [161]#2,n$:[153]n$;:[130]:[160]1:[160]2
120 [153]"aendern ? [j/n]"
130 [139][194](203)[179][177]64[167]130
140 [139][194](203)[178]64[167]140
150 [161]a$:[139]a$[179][177]"j"[167][138]
160 [129]i[178]1[164]5:[161]a$:[130]
180 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( tab(tab(tab(tab( tab("
190 [159]1,8,15
200 [159]2,8,2,"#"
210 [152]1,"u1 2 0 18 0"
220 [152]1,"b-p 2 144"
230 [153]"onon";:[141]380:a$[178]e$
240 [139] [195](a$)[179]16 [167] a$[178]a$[170]"close":[137] 240
250 [152]2,a$;
260 [152]1,"u2 2 0 18 0"
270 [160] 2
280 [152]1,"i":[141]330
290 [153]" taste druecken "
300 [139][194](203)[179][177]64[167]300
310 [139][194](203)[178]64[167]310
320 [138]
330 [153]"";
340 nn$[178]""
350 [161]#1,n$:nn$[178]nn$[170]n$:[139]st[179][177]64[167]350
360 [139][200](nn$,2)[179][177]"00"[167][153]"";
370 [153]nn$:[142]
380 e$[178]"":cu$[178]"tocmd":[153]"]"cu$;
390 [139][194](203)[178]64[167]390
400 [161]ei$:[139][195](e$)[178]0[175]ei$[178][199](20)[167]390
410 [139]ei$[178][199](20)[167]e$[178][200](e$,[195](e$)[171]1):[137]450
420 [139]ei$[178][199](13)[167][142]
430 [139]ei$[178]"on"[176]ei$[178]""[176]ei$[178]""[176]ei$[178]"cmd"[176]ei$[178]""[167]390
435 [139][195](e$)[177]22[167]390
440 e$[178]e$[170]ei$
450 [153]ei$;cu$;:[137]390