home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / add-main (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  7KB  |  213 lines
  1. 10 REM ADD V8.6F 5N
  2. 20 REM VERSION: 27.1.'87
  3. 30 REM (W)RITEN BY: STEFAN ROETTGER,
  4. 40 REM SAARSTR.75, 3300 BRAUNSCHWEIG
  5. 90 POKE56576,PEEK(56576)AND252:POKE53272,9:POKE648,192:SYS58692
  6. 100 CLR:H$="":NU%=9:DIMA$(NU%),LA(NU%),H$(NU%),F(NU%),S$(100),WP$(NU%):S$="
  7. 110 [159]15,8,15:[151]650,128
  8. 120 [151]53280,0:[151]53281,0:RL$[178][199](10)[170][199](13)
  9. 130 [139][194](52991)[171]1[167][153][199](142)"LOADSYS                (null)ASSWORD
  10. 140 JE$="":IFPEEK(52991)-1THENT1=49851:GOSUB2070:POKE52991,1:GOSUB2040
  11. 150 RT$=CHR$(13):DE$=CHR$(20):BA$="[158][157].[157]":SP$="                    "
  12. 160 C$="[129]":DD$="[157] [146][158] = ":H3$="[164][164][164][164][164][164][164]":POKE657,128
  13. 170 H1$="[147][146]":H2$="":HA$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  14. 180 LA(1)[178]1:LA(2)[178]20:LA(3)[178]20:LA(4)[178]20:LA(5)[178]4:LA(6)[178]20:LA(7)[178]20:LA(8)[178]10
  15. 190 LA(9)[178]10:WP$(9)[178]"(null)EXT   "
  16. 200 WP$(1)[178]"ATNNREDE ":WP$(2)[178]"(null)AME   ":WP$(3)[178]"(null)ORNAME":WP$(4)[178]"(null)TRA\E "
  17. 210 WP$(5)[178]"(null)LZ    ":WP$(6)[178]"(null)RT    ":WP$(7)[178]"(null)ELEF. ":WP$(8)[178]"GEB.STR$AT"
  18. 220 [153][199](142)H1$HA$"CONT  ATN D R E S S E N  (null) E R W A L T U N G  "H2$HA$
  19. 230 US$[178]"ONSYS                < '86 VAL(null)(null)(null)"[170]RT$
  20. 240 DO$[178]"         ":D1$[178]"FOR         TOTOTO":AD$[178]"CMD WAITSYS - ATNDRESSEN "
  21. 250 [141]1980:[153]US$:[153]DO$"FOR E WAITSYS - VALNDE":[153]D1$
  22. 260 [153]DO$1AD$"ATNUSGABE":[153]D1$
  23. 270 [153]DO$2AD$"(null)UCHEN":[153]D1$
  24. 280 [153]DO$3AD$"VALINGABE":[153]D1$
  25. 290 [153]DO$4AD$"]NDERN":[153]D1$
  26. 300 [153]DO$5AD$"(null):SCHEN":[153]D1$
  27. 310 [153]DO$6"CMD WAIT SYS- STR$ATEIEN (null):SCHEN":[153]D1$
  28. 320 [153]DO$7"CMD WAIT SYS- (null)ORTIERTE ATNUSGABE":[153]D1$
  29. 330 [153]DO$8"CMD WAIT SYS- (null)ASSWORD ;NDERN":[153]D1$
  30. 340 [153]DO$9"CMD WAIT SYS- STR$ATEIEN (null)MKODIEREN
  31. 350 POKE198,0:WAIT198,1:GETT$:IFT$="E"THENSYS828:POKE52991,0:SYS64738
  32. 360 TT=VAL(T$):IFTT=0THEN350
  33. 370 IFTT=8THENPOKE52991,0:RUN
  34. 380 ONTTGOTO400,1030,1090,1330,1330,1640,1760,370,2000
  35. 390 RETURN
  36. 400 PRINTH1$HA$"[154]     [193] D R E S S E N  [193] U S G A B E     "H2$HA$"
  37. 410 [153]"FOR"H3$"TO":[129]T[178]1[164]NU%:[153]"FOR"WP$(T)"/":[130]:[153]"
  38. 420 GOSUB1710
  39. 430 IFB$="*"THENFL=1:FORB=193TO221:B$=CHR$(B+(B=219)*126+(B=220)*129+(B=221)*35)
  40. 440 PRINT""SP$"       [157][157][157][157][157][157][157][157]"B$
  41. 450 CLOSE1:OPEN1,8,8,B$+",S,R":INPUT#15,ER,ER$,T,S:IFERTHEN710
  42. 460 POKE2,0:SYS(51456)1,S$:IF(ST AND64)=0THENGOSUB490:GOTO460
  43. 470 IFLEFT$(S$,1)="*"THENCLOSE1:GOTO710
  44. 480 GOSUB490:CLOSE1:GOTO710
  45. 490 IFF(1)=1ANDLEFT$(S$,1)<>H$(1)THENRETURN
  46. 500 QQ=1:FORT=1TONU%:LB=LA(T):A$(T)=MID$(S$,QQ,LB):QQ=QQ+LB:NEXT
  47. 510 T=1:F=F(T):IFF=1THENT=2:F=F(T)
  48. 520 IFF=0THEN580
  49. 530 H$=H$(F):IFF-4ANDF-7ANDF-8ANDH$<>LEFT$(A$(F),LEN(H$))THENRETURN
  50. 540 IFF-4ANDF-7ANDF-8THEN570
  51. 550 I2=1:FORI1=0TOLEN(A$(F))-LEN(H$):IFH$=MID$(A$(F),I1+1,LEN(H$))THENI2=0
  52. 560 NEXT:IFI2THENRETURN
  53. 570 T=T+1:F=F(T):IFFTHEN530
  54. 580 PRINT"[158]
  55. 590 [129]T[178]1[164]NU%:[153]""A$(T):[130]:[141]1960
  56. 600 [139]M[177]0[167][142]
  57. 610 [153]"";
  58. 620 [139]PD[167][141]750:[142]
  59. 630 [153]"          (null)EITER ?  (J/N/P/C)"
  60. 640 [151]198,0:[146]198,1:[153]"ON"[200](SP$[170]SP$,30)"ON"
  61. 650 [161]T$:[139]T$[178]""[175]PD[178]0[167]620
  62. 660 [139]T$[178]"J"[167][142]
  63. 670 [139]T$[178]"N"[167][160]1:[138]
  64. 680 [139]T$[178]"P"[167][141]750:[142]
  65. 690 [139]T$[178]"C"[167]PD[178]1:PE[178]0
  66. 700 [137]620
  67. 710 [139]FL[178]1[167][160]1:[130]
  68. 720 [153]"SYS         (null)ETZTER ATNDRESSEN-(null)ATZ !        "
  69. 730 [153]"         PEEKITTE (null)ASTE DR@CKEN.":[141]1960
  70. 740 [151]198,0:[146]198,1:[160]1:[138]
  71. 750 [139]PD[167]PE%[178][180](PE)[170]2:[145]PE%[137]820,760,880
  72. 760 [153]"           VALTIKETTENFORMAT ?ON"
  73. 770 [151]198,0:[146]198,1:[161]T$
  74. 780 [139]T$[178]"N"[167][153][200](SP$[170]SP$,35)"ON":PE[178][171]1:[137]820
  75. 790 [153]"              ATNNZAHL ? (1-9)"
  76. 800 [151]198,0:[146]198,1:[161]T$:[153]"ON"[200](SP$[170]SP$,30)"ON":PE[178][197](T$)
  77. 810 PE[178]PE[171](PE[178]0):[137]880
  78. 820 [159]4,4,1:[160]4:[139]ST[178]0[167]840
  79. 830 [153]"LOADSTR$RUCKER EINSCHALTEN !":[151]198,0:[146]198,255:[160]1:[138]
  80. 840 [159]4,4,2:VS$[178]"     "
  81. 850 [152]4,[199](27)"(null)"VS$A$(2)" "A$(3)"^ "A$(4)"^ "A$(5)" "A$(6)RL$
  82. 860 [152]4,SP$" (null)EL./"A$(7)" GEB. STR$ATUM /"A$(8)"      "A$(9)RL$
  83. 870 [160]4:[142]
  84. 880 [159]4,4,1:[160]4:[139]ST[178]0[167]900
  85. 890 [153]"LOADSTR$RUCKER EINSCHALTEN !":[151]198,0:[146]198,255:[160]1:[138]
  86. 900 [159]4,4,2:VS$[178]"      ":Z$[178]A$(1):[129]K[178]1[164]PE
  87. 910 [139]Z$[178]"H"[167]A$[178]"LEFT$ERRN":[137]960
  88. 920 [139]Z$[178]"F"[167]A$[178]"ASCRAU":[137]960
  89. 930 [139]Z$[178]"A"[167]A$[178]"ATNN":[137]960
  90. 940 [139]Z$[178]"M"[167]A$[178]"ASCRL.":[137]960
  91. 950 A$[178]"ATNBS./"
  92. 960 [159]5,4,2:[152]5,"VALCHR$";:[160]5
  93. 970 [152]4,"(null)"VS$A$RL$:[139][200](A$(3),1)[178]" "[167]A$(3)[178]"":[137]1010
  94. 980 A$[178]VS$:[129]T[178]3[164]2[169][171]1:F[178]0:A$(T)[178]A$(T)[170]" ":[129]J[178]LA(T)[164]2[169][171]1
  95. 990 [139]([198]([202](A$(T),J,1))[171]32)[175](F[178]0)[167]A$[178]A$[170][200](A$(T),J[171](T[178]3)):F[178]1
  96. 1000 [130]:[130]:TR$[178]RL$[170]RL$
  97. 1010 A$[178][201](A$,LA(3)[170]LA(2)[170]1):[152]4,A$TR$VS$A$(4)TR$VS$A$(5)"  "A$(6)RL$
  98. 1020 [152]4,TR$RL$:[159]5,4,2:[152]5,"ASCLEFT$";:[160]5:[130]:[137]870
  99. 1030 [153]H1$HA$"CONT      ATN D R E S S E N  (null) U C H E N      "H2$HA$
  100. 1040 [153]"          (null)UCHKRITERIEN":PQ[178]1:M[178]1
  101. 1050 [129]IN[178]1[164]NU%:[141]1220:H$(IN)[178]A$(IN):F(IN)[178]0:[139]H$(IN)[179][177]""[167]F(PQ)[178]IN:PQ[178]PQ[170]1
  102. 1060 [130]:M[178]0:[153]"
  103. 1070 IFF(2)<>2ANDF(1)<>2THENPRINT"":GOTO420
  104. 1080 H$(2)=A$(2):B$=LEFT$(A$(2),1):GOTO450
  105. 1090 PRINTH1$HA$"[154]     [193] D R E S S E N  [197] I N G A B E     "H2$HA$
  106. 1100 FORIN=1TONU%:GOSUB1220:NEXT
  107. 1110 PRINT:PRINT"[158] [201]N [207]RDNUNG ? (J/N)
  108. 1120 [161]T$:[139]T$[179][177]"J"[175]T$[179][177]"N"[167]1120
  109. 1130 [139]T$[178]"N"[167]1090
  110. 1140 D$[178][200](A$(2),1):[139]A$(1)[178]" "[167]A$(1)[178]".
  111. 1150 CLOSE1:OPEN1,8,8,D$+",S,R":POKE2,0:SYS(51456)1,S$:CLOSE1:AD$=",S,A
  112. 1160 [139][200](S$,1)[178]"*"[176]S$[178]""[167][152]15,"S:"[170]D$:AD$[178]",S,W"
  113. 1170 [160]1:[159]1,8,8,D$[170]AD$:S$[178]"":[129]T[178]1[164]NU%:S$[178]S$[170]A$(T):[130]:[151]2,0
  114. 1180 [152]1,S$:[160]1:[138]
  115. 1190 [161]T$:T[178][198](T$[170][199](0)):[139]T[178]20[176]T[178]32[176]T[178]13[176]T[178]186[176]T[177][178]35[175]T[179]127[167][142]
  116. 1200 [139]T[177]192[175]T[179]219[167][142]
  117. 1210 [137]1190
  118. 1220 [139]IN[178]1[167][153]"FOR"H3$:[137]1240
  119. 1230 [153]
  120. 1240 [153]"FOR"WP$(IN)"WAITSYS";:A$(IN)[178]"":[129]T[178]1[164]LA(IN):[153]".";:[130]
  121. 1250 [153]:[153]"ON"[163]11);
  122. 1260 [141]1190:A[178][195](A$(IN)):[139](A[178]0[175]T$[178]DE$)[176](A[178]LA(IN)[175]T$[177]DE$)[167]1260
  123. 1270 [139]T$[178]DE$[167]A$(IN)[178][200](A$(IN),A[171]1):[153]BA$;:[137]1260
  124. 1280 [139]T$[179][177]RT$[175]IN[178]1[175][197](T$)[179][177]0[167]1260
  125. 1290 [139]T$[179][177]RT$[167]A$(IN)[178]A$(IN)[170]T$:[153]T$;:[137]1260
  126. 1300 [139]M[178]1[167][142]
  127. 1310 A$(IN)[178][200](A$(IN)[170]SP$,LA(IN)):[142]
  128. 1320 [153]H1$HA$"CONT      ATN D R E S S E N  ] N D E R N      "H2$HA$:[142]
  129. 1330 [141]1320
  130. 1340 [141]1710:NN[178]0:[139]B$[178]"*"[167]1340
  131. 1350 M[178]2:[139]TT[178]4[167]A$[178]"           ]NDERN ?   (J/N/E)":[137]1370
  132. 1360 A$[178]"           (null):SCHEN ?   (J/N/E)
  133. 1370 D$=B$:N=0:HH$=B$+",S,R
  134. 1380 [159]1,8,8,HH$:[132]15,ER,ER$,T,S:[139]ER[167][160]1:[138]
  135. 1390 N[178]N[170]1:[151]2,0:[158](51456)1,S$(N):[139](ST [175]64)[178]0[167]1390
  136. 1400 [160]1:[139]S$(1)[178]"*"[167][138]
  137. 1410 [129]Z[178]1[164]N:QQ[178]1:S$[178]S$(Z):[129]T[178]1[164]NU%:A$(T)[178][202](S$,QQ,LA(T)):QQ[178]QQ[170]LA(T):[130]
  138. 1420 [153]"LOAD":[141]1320
  139. 1430 [153]"FOR"H3$"TO":[129]T[178]1[164]NU%:[153]"FOR"WP$(T)"/":[130]
  140. 1440 [141]580
  141. 1450 [153]"";
  142. 1460 [153]A$
  143. 1470 [151]198,0:[146]198,1:[161]T$
  144. 1480 [153]"ON"[200](SP$[170]SP$,38)"ON"
  145. 1490 [139]T$[178]"E"[167][153]"":[137]1610
  146. 1500 [139]T$[178]"N"[167][153]"":[130]:[137]1610
  147. 1510 [139]T$[179][177]"J"[167]1460
  148. 1520 [139]TT[178]5[167]1600
  149. 1530 [153]"LOAD":[141]1320
  150. 1540 [153]"FORTOTOTO":[129]T[178]1[164]NU%:[153]"FOR"T[171]1;DD$WP$(T):[130]:[151]198,0
  151. 1550 [161]T$:IN[178][197](T$):[139][197](T$)[178]0[175]T$[179][177]"0"[167]1550
  152. 1560 IN[178]IN[170]1:[139]IN[177]NU%[167]1550
  153. 1570 [141]1220:NN[178]1
  154. 1580 [139]IQ[178]1[167]IQ[178]0:[142]
  155. 1590 S$(Z)[178]"":[129]I[178]1[164]NU%:S$(Z)[178]S$(Z)[170]A$(I):[130]:[137]1420
  156. 1600 N[178]N[171]1:[129]B[178]Z[164]N:S$(B)[178]S$(B[170]1):[130]:NN[178]1
  157. 1610 [139]NN[178]0[167][138]
  158. 1620 [152]15,"S:"[170]D$:[159]1,8,8,D$[170]",S,W":[139]N[178]0[167]S$(1)[178]"*
  159. 1630 FORT=1TON:POKE2,0:PRINT#1,S$(T):NEXT:CLOSE1:RUN
  160. 1640 PRINTH1$HA$"[154]     [196] A T E I E N    [204] : S C H E N     "H2$HA$:RESTORE
  161. 1650 GOSUB1710:PRINT#15,"I0":IFB$="*"THEN1680
  162. 1660 PRINT#15,"S:"+B$
  163. 1670 CLOSE1:OPEN1,8,8,B$+",S,W":POKE2,0:PRINT#1,"*":CLOSE1:RUN
  164. 1680 FORB=193TO221:B$=CHR$(B+(B=219)*126+(B=220)*129+(B=221)*35)
  165. 1690 PRINT""SP$"       [157][157][157][157][157][157][157][157]"B$
  166. 1700 PRINT#15,"S:"+B$:OPEN1,8,8,B$+",S,W":POKE2,0:PRINT#1,"*":CLOSE1:NEXT:RUN
  167. 1710 PRINT"[158]         [196]ATEI - [195]ODE [173]   ?[157]";
  168. 1720 POKE198,0:WAIT198,1:GETB$:B=ASC(B$)
  169. 1730 IFB-42ANDB-58ANDB-59AND(B>90ORB<64)THEN1720
  170. 1740 IFB$="*"THENPRINTB$:RETURN
  171. 1750 B$=CHR$(B+128+(B=59)*94+(B=58)*95+(B=64)*6):PRINTB$:RETURN
  172. 1760 PRINTH1$HA$"[154]     [211] O R T I E R T E   [193] U S G A B E  "H2$HA$"
  173. 1770 [141]1710:[153]"     ";:CK[178]0
  174. 1780 FL[178]0
  175. 1790 [139]B$[178]"*"[167]FL[178]1:[129]B[178]193[164]221:B$[178][199](B[170](B[178]219)[172]126[170](B[178]220)[172]129[170](B[178]221)[172]35)
  176. 1800 [139]CK[167]JE$[178]KI$:[141]2040
  177. 1810 [160]1:[159]1,8,8,B$[170]",S,R":N[178]0:[132]15,ER,ER$,S,T:[139]ER[167]1900
  178. 1820 N[178]N[170]1:[151]2,0:[158](51456)1,S$(N):[139](ST [175]64)[178]0[167]1820
  179. 1830 [160]1:[139]N[178]0[167]1900
  180. 1840 [139]CK[178]1[175]KI$[179][177]KO$[167]JE$[178]KO$:[141]2040
  181. 1850 [139]CK[167][152]15,"S:"[170]B$:[159]2,8,8,B$[170]",S,W
  182. 1860 IFN=1THENS$=S$(1):GOSUB1920:GOTO1900
  183. 1870 FORTT=NTO1STEP-1:S$=S$(1):S=1:FORP=1TOTT
  184. 1880 IFRIGHT$(S$,LEN(S$)-1)>RIGHT$(S$(P),LEN(S$(P))-1)THENS$=S$(P):S=P
  185. 1890 NEXT:GOSUB1920:S$(S)=S$(TT):NEXT
  186. 1900 IFFL=0ANDCK=0THENRUN
  187. 1910 PRINTB$;:CLOSE2:NEXT:GOTO720
  188. 1920 IFCK=0THENQQ=2:FORT=2TONU%:LB=LA(T):A$(T)=MID$(S$,QQ,LB):QQ=QQ+LB:NEXT
  189. 1930 IFCK=0THENPD=1:GOSUB820
  190. 1940 IFCK=1THENPOKE2,0:PRINT#2,S$
  191. 1950 RETURN
  192. 1960 SI=54272:FORJ=4TO18STEP7:POKESI+J,0:NEXT
  193. 1970 FORJ=4TO18STEP7:POKESI+J,17:NEXT:RETURN
  194. 1980 RESTORE:SI=54272
  195. 1990 FORI=0TO24:READA:POKESI+I,A:NEXT:RETURN
  196. 2000 PRINTH1$HA$"[154]  [193] D R E S S E N  [213] M K O D I E R E N  "H2$HA$
  197. 2010 INPUT"[158][214]ON [208]ASSWORD [173]";KI$
  198. 2020 INPUT"[158][206]ACH [208]ASSWORD [173]";KO$:IFKO$=""THENKO$=KI$
  199. 2030 PRINT"      ";:CK=1:B$="*":GOTO1780
  200. 2040 SYS828:IFJE$=""THENRETURN
  201. 2050 FORT=0TOLEN(JE$)-1:POKE52992+T,ASC(MID$(JE$,T+1)):NEXT:SYS847
  202. 2060 RETURN
  203. 2070 L=0:T=T1-130+6144:FORI=TTOT+260:POKEI,7:NEXT:POKE198,0:WAIT198,1
  204. 2080 GETJ1$:T=ASC(J1$+CHR$(0)):IFT=0THEN2080
  205. 2090 IFT=13THENRETURN
  206. 2100 IFT=20THEN2130
  207. 2110 JE$=JE$+J1$:A=L/2-INT(L/2):T1=T1+(A=0)*L-(A<>0)*L:L=L+1:POKET1,45
  208. 2120 GOTO 2080
  209. 2130 IFL=0THEN2080
  210. 2140 L=L-1:A=L/2-INT(L/2):JE$=LEFT$(JE$,L):POKET1,32:T1=T1-(A=0)*L+(A<>0)*L
  211. 2150 GOTO2080
  212. 2160 DATA187,34,,,16,10,,207,34,,,16,10,,227,34,,,16,10,,,,,15
  213.