home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702a.d64
/
modul-schreiber
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
70 lines
100 REM ** HB-MODUL-SCHREIBER **
110 DIM AN$(16),AS$(16),AE$(16),AD$(16):CR$=CHR$(13)
120 INPUT"[147][205]ODULNUMMER";MO
130 PRINT"[197]INGABE, [211]CHREIBEN, [206]EU, [201]NST, [196]EL, [209]UIT
140 [141] 240:[141]300
150 [161]T$:[139]T$[178]""[167]150
160 [139]T$[178]"Q"[167][153]"":[128]
170 [139]T$[178]"S"[167][141]340:[137]150
180 [139]T$[178]"N"[167][138]
190 [139]T$[178]"E"[167][141]600
200 [139]T$[178]"I"[167][141]430
210 [139]T$[178]"D"[167][141]690
220 [137]150
230 [128]
240 NA$[178][202]([196](MO),2,4)[170]"MODUL"
250 [159]15,8,15:[159] 1,8,3,NA$[170]",S,R"
260 [132]1,AB$:AB[178][197](AB$)
270 [132]15,FE,UN$,UN$,UN$:[139]FE[167][153]""[163]21)"(null)EER":[160]15:[142]
280 [129] K[178]1 [164] AB
290 [132]1,AN$(K),AS$(K),AE$(K),AD$(K):[130]:[160]1:[160]15:[142]
300 [153]"(null)AME VON BIS STR$ATEN"
310 [139]AB[178]0[167][153]" ":[142]
320 [129]K[178]1[164]AB
330 [153]AN$(K)[163]18)AS$(K)[163]26)AE$(K)[163]34)AD$(K):[130]:[142]
340 [153]""[163]21)"(null)CHREIBEN?"
350 [161]T$:[139]T$[178]"N"[167]420
360 [139]T$[179][177]"J"[167]350
370 [153]""[163]21)"STR$ISKETTE EINLEGEN":[151]198,0:[146]198,1:[151]198,0
380 [159]15,8,15:[152]15,"S:"[170]NA$:[160]15:[159] 1,8,3,NA$[170]",S,W"
390 [152]1,[196](AB)
400 [129] K[178]1 [164] AB
410 [152]1,AN$(K)CR$AS$(K)CR$AE$(K)CR$AD$(K):[130]:[160]1
420 [153]""[163]21)" ":[142]
430 [153]""[163]21)"VALINFUEGEN":[139]AB[178]0[167]AB[178]1:I[178]1:[137]540
440 :[139]AB[178]16[167]590
450 WINP 0,5,0,AB[170]5,"","*";I$
460 [129]I[178]1[164][195](I$)
470 [139] [202](I$,I,1)[178]"*"[167]490
480 [130]:[141]300:[142]
490 AB[178]AB[170]1:[129]K[178]AB[164]I[169][171]1
500 AN$(K)[178]AN$(K[171]1):AS$(K)[178]AS$(K[171]1):AE$(K)[178]AE$(K[171]1):AD$(K)[178]AD$(K[171]1):[130]
510 AN$(I)[178]"":AS$(I)[178]"":AE$(I)[178]"":AD$(I)[178]"":[130]
520 [153]"":[129]J[178]1[164]AB:[153]" ":[130]
530 [141]300:I[178]I[171]1
540 WINP 0,I[170]4,15,I[170]4,"","DIM";I$:AN$(I)[178]I$
550 WINP 18,I[170]4,22,I[170]4,"","INPUT";I$:AS$(I)[178]I$
560 WINP 26,I[170]4,30,I[170]4,"","INPUT";I$:AE$(I)[178]I$
570 [139][197](AS$(I))[177][178][197](AE$(I))[167]550
580 WINP 34,I[170]4,36,I[170]4,"","INPUT";I$:AD$(I)[178]I$
590 [153]""[163]21)" ":[142]
600 [139]AB[178]0[167][142]
610 [129]I[178]1[164]AB:K[178]I[170]4
620 WINP 0,K,15,K,AN$(I),"DIM";I$:AN$(I)[178]I$
630 WINP 18,K,22,K,AS$(I),"INPUT";I$:AS$(I)[178]I$
640 WINP 26,K,30,K,AE$(I),"INPUT";I$:AE$(I)[178]I$
650 [139][197](AS$(I))[177][178][197](AE$(I))[167]630
660 WINP 34,K,36,K,AD$(I),"INPUT";I$:AD$(I)[178]I$
670 [130]
680 [142]
690 [153]""[163]21)"(null)OESCHEN":[139]AB[178]0[167]780
700 WINP 0,5,0,AB[170]4,"","*";I$
710 [129]I[178]1[164][195](I$)
720 [139] [202](I$,I,1)[178]"*"[167]740
730 [130]:[141]300:[142]
740 AB[178]AB[171]1:[129]K[178]I[164]AB
750 AN$(K)[178]AN$(K[170]1):AS$(K)[178]AS$(K[170]1):AE$(K)[178]AE$(K[170]1):AD$(K)[178]AD$(K[170]1):[130]
760 [153]"":[129]J[178]1[164]AB[170]1:[153]" "
770 [130]:[141]300
780 [153]""[163]21)" ":[142]