home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8611a.d64 / startool (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  536b  |  21 lines
  1. 5 IFA=0THENA=1:LOAD"PATCH.MODE",8,1
  2. 10 PRINT"[147]";CHR$(14)
  3. 20 A$="[211]TARTOOL.[208]ATCH +"
  4. 30 PRINTTAB(20-LEN(A$)/2)A$:PRINT
  5. 40 PRINT"   [194]ITTE GEBEN SIE DIE [198]ARBEN EIN !":PRINT
  6. 45 HF=9:RF=0:SF=7
  7. 50 INPUT"[200]INTERGRUNDFARBE";HF:PRINT
  8. 60 INPUT"[210]AHMENFARBE";RF:PRINT
  9. 70 INPUT"[211]CHREIBFARBE";SF:PRINT
  10. 110 INPUT"OKAY";A$:IFLEFT$(A$,1)<>"J"THEN10
  11. 200 PRINT
  12. 210 PRINT"[194]ITTE  LEGEN SIE JETZT EINE SICHERHEITS-";
  13. 220 PRINT"KOPIE  VON [211]TAR[212]OOL  IN [204]AUFWERK  8  EIN";
  14. 230 PRINT"    UND DRUECKEN DANN EINE [212]ASTE !"
  15. 250 POKE198,0:WAIT198,255
  16. 300 OPEN1,8,15,"R:STARTOOL.OLD=STARTOOL.OBJ":CLOSE1
  17. 310 POKE49311,RF
  18. 320 POKE49316,HF
  19. 330 POKE49231,SF
  20. 340 SYS49152
  21.