home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / micro-tagebuch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  679b  |  17 lines
  1. 5 PRINT"[147]   [197]LEKTRONISCHES [212]AGEBUCH"
  2. 10 POKE808,254:PRINT"   [205]ENUE:":INPUT"   1=CODIEREN, 2=DECODIEREN";W
  3. 12 PRINT"   [194]ITTE [196]ISKETTE EINLEGEN!"
  4. 15 PRINTTAB(26)"TT.MM.JJJJ[145][145]":INPUT"                  [196]ATUM ";D$
  5. 18 PRINT"   [195]ODEZAHLEN X,Y,Z":INPUT"   DURCH [203]OMMA GETRENNT ";A,B,C
  6. 20 DIMT(839),T$(839):X=0:IFW=2THEN70
  7. 25 PRINT"[147]   [212]EXTEINGABE (MAX. 839 [218]EICHEN)":PRINT"   '*' = [197]NDE":PRINT">";
  8. 30 GETT$(X):IFT$(X)=""THEN30
  9. 35 IFT$(X)="*"ORX=839THEN50
  10. 40 PRINTT$(X);:X=X+1:GOTO30
  11. 50 OPEN1,8,2,D$+",S,W":PRINT#1,X:FORI=0TOX-1:B=B+(A*C):PRINT#1,ASC(T$(I))+C+B
  12. 60 NEXTI:CLOSE1:GOTO99
  13. 70 PRINT"[147]>";:OPEN1,8,2,D$+",S,R":INPUT#1,X:FORI=0TOX-1:B=B+(A*C):INPUT#1,T(I)
  14. 80 T(I)=(T(I)-B)-C:IFT(I)<0ORT(I)>255THENCLOSE1:PRINT"[198]ALSCHE [197]INGABE":GOTO99
  15. 90 PRINTCHR$(T(I));:NEXTI:CLOSE1
  16. 99 CLR:POKE808,237:END:REM -PTS,1985-
  17.