home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dimension 64 1
/
Dimension_64_Nr.01_19xx_-_de_Side_A.d64
/
disknamen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
955b
|
27 lines
0 rem"
5 [151]53280,.:[151]53281,.:[153]"load 1541 (NULL)ename str$isk v2.0"
6 :[153]"right$nsert str$isk and left$it a (NULL)ey."
7 [161]k$:[139]k$[178]""[167]7
8 [153]"load(NULL)eading str$isk...":[159]2,0
9 [159]1,8,15:[152]1,"m-eb(NULL)":[132]1,e:[139]e[167][160]1:[153]"error:"e:[144]
10 [152]1,"m-rstop":[129]t[178]1[164]16:[161]#1,a$:[139]a$[178]""[167]a$[178][199](.)
11 [139]a$[178][199](13)[167]a$[178]"?"
12 n$[178]n$[170]a$:[130]:[161]#1,a$,a$
15 [129]t[178]1[164]5:[161]#1,a$:[139]a$[178]""[167]a$[178][199](.)
16 [139]a$[178][199](13)[167]a$[178]"?"
17 i$[178]i$[170]a$:[130]:[153]"lenurrent (NULL)ame:"
18 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]"onon";
20 [151]216,16:[153]n$"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[132]2,a$:a$[178]"":[153]:[129]t[178]512[164]528
25 [139][194](t)[177].[167]a$[178]a$[170][199]([194](t)):[130]
30 t[178]528:[130]:[153]"lenurrent right$d:":[153]"tab(tab(tab(tab(tab(":[153]"onon";:[151]216,5:[153]i$"cmdcmdcmdcmdcmd";
35 n$[178]a$:[132]2,a$:a$[178]"":[153]"":[129]t[178]512[164]517
40 [139][194](t)[177].[167]a$[178]a$[170][199]([194](t)):[130]
50 t[178]517:[130]:n$[178][200](n$[170]"closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose",16):i$[178][200](a$[170]"closecloseclosecloseclose",5):[153]"atnll (NULL)kay?"
55 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]55
57 [139]k$[178]"n"[167][138]
58 [153]"(NULL)riting (NULL)o str$isk..."
60 [152]1,"m-wstop"n$"closeclose"i$:[152]1,"m-wq":[152]1,"m-e(NULL)(NULL)":[160]1
70 [138]
200 [143]"
9999 rem " by mr. nike