home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9103a.d64
/
vokabelchecker
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
0 DIMD$(200,3):DIMKL(200):DIMLK(200):DIMF$(200,2):POKE53272,23:PRINTCHR$(8)
1 G$=CHR$(34):LK=0:Z=2:C=1:PRINT"[147]"SPC(50)"[205]ENU"SPC(75)"1.[197]INGABE"SPC(71)
2 PRINT"2.[193]BFRAGE"SPC(71)"3.[193]USDRUCK"SPC(70)"4.[211]AVE"SPC(74)"5.[204]OAD"SPC(74)"6.[197]ND
3 [151]19,0:[129]A[178]0[164]V[170]1:KL(A)[178]0:[130]A:[133]"";W:[145]W[137]13,18,8,9,11:[153]"LOAD":[128]
4 M[178]4:P[178][181](V[172][187](1)):Q[178]3:[145]2[171]KL(P)[137]4:[153]"LOAD"D$(P,Z)
5 [141]16:[145]F[137]1:[139]D$(P,C)[179][177]D$(V,3)[167][153]"ASCALSCH !":M[178]M[171]1:[145]M[137]4:[137]5
6 [153]"(null)ICHTIG !":KL(P)[178]1:M[178]M[170]1:LK[178]LK[170]1:O[178]V[171]LK[170]1:[145]O[137]1:[137]4
7 V[178]V[171]1:[145]G[137]1:[129]R[178]V[164]T[171]1:D$(R,1)[178]F$(R,1):D$(R,2)[178]F$(R,2):[130]R:V[178]T:[137]1
8 [133]"1 [STR$RUCKER] ODER 2 [PEEKILDSCHIRM]";Y:[153]"LOAD":[159]4,5[171]Y:[129]I[178]0[164]V[171]1:[137]19
9 [133]"(null)AME";O$:[159]1,8,1,O$[170]",S,W":[152]1,V:[129]S[178]0[164]V:[152]1,G$[170]D$(S,1)
10 [152]1,G$[170]D$(S,2):[130]S:[160]1:[137]1
11 [133]"(null)AME";S$:[159]1,8,0,S$[170]",S,R":[132]1,V:[129]S[178]0[164]V:[132]1,D$(S,1)
12 [132]1,D$(S,2):[130]S:[160]1:[137]1
13 [133]"(1) ATNNHAENGEN / (2) (null)ERBESSERN";G:[145]G[137]15:T[178]V
14 [133]" NACH VOKABEL NR. ";V:[129]R[178]V[171]1[164]T:F$(R,1)[178]D$(R,1):F$(R,2)[178]D$(R,2):[130]R
15 [153]"(null)OKABEL:":Q[178]1:[141]16:[153]"PEEKEDEUTUNG:":Q[178]2:[141]16:V[178]V[170]1:[145]F[170]1[137]15,7
16 [153]">";[199](34)[199](13)"ONCONT";:[151]631,29:[151]198,1:[151]19,64:[133]D$(V,Q)
17 [151]19,0:[153]:[153]:F[178][171](D$(V,Q)[178]"MENU"):[142]
18 [133]"(1) PEEK. > (null). ODER (2) (null).> PEEK.";B:[145]B[137]4:Z[178]1:C[178]2:[137]4
19 [152]4,[199](017)" NR."I[170]1;D$(I,1);" / "D$(I,2):[130]:[160]4:[146]203,63:[137]1