home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9005a.d64 / id-change (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  859b  |  20 lines
  1. 10 REM      ==> ID-CHANGE <==
  2. 20 REM (C) 11/89 BY ALEX GEVATTER
  3. 30 :
  4. 40 POKE53280,0:POKE53281,0:R$=CHR$(13):PRINT"[147][154][201][196]-[195]HANGE"R$"[163][163][163][163][163][163][163][163][163]"
  5. 50 PRINT"([195]) 11/89 BY [193]LEX [199]EVATTER"R$"[194]ITTE WAEHLEN:"R$" [206] [146] ==> [196]I";
  6. 60 PRINT"SK-[206]AME AENDERN"R$" [201] [146] ==> [196]ISK-[201][196] AENDERN"R$" [197] [146] ==> [197]NDE"
  7. 70 POKE198,0:WAIT198,1:GETA$:IFA$="E"THENPRINT"[147]";:END
  8. 80 IFA$="I"THENAN=162:EN=166:L=5:N1$="[201][196] ":N2$=" [201][196]":GOTO110
  9. 90 IFA$<>"N"THEN70
  10. 100 AN=144:EN=159:L=16:N1$="[206]AME ":N2$="R [206]AME"
  11. 110 PRINT"[147][196]ISK-"N1$"AENDERN  (MAX."L"[218]EICHEN!)":OPEN1,8,15:OPEN2,8,5,"#"
  12. 120 PRINT#1,"U1 5 0 18 0":A$="":FORI=ANTOEN:PRINT#1,"B-P";5;I:GET#2,D$:A$=A$+D$
  13. 130 NEXT:PRINT"[154][193]LTE"N2$": "A$;R$"[154][206]EUE"N2$;:POKE631,5:POKE632,18
  14. 140 POKE198,2:INPUTA$
  15. 150 IFLEN(A$)<LTHENA$=A$+" ":GOTO150
  16. 160 FORI=ANTOEN:PRINT#1,"B-P";5;I:B$=MID$(A$,I-(AN-1),1):A=ASC(B$)
  17. 170 PRINT#2,CHR$(A);:NEXT:PRINT#1,"U2 5 0 18 0":CLOSE2:INPUT#1,A,B$,C,D
  18. 180 PRINT#1,"I":CLOSE1:PRINT"[154][196]ISK-[211]TATUS:"R$"[157]"A""B$"[146]"C"[157]"D
  19. 190 PRINT"[154][212]ASTE!":POKE198,0:WAIT198,1:RUN
  20.