home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9404a.d64 / prereferences (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  107 lines
  1. 5 DIM P$(17),X(17),AD(17)
  2. 6 FORT=0TO17:READP$(T),X(T),AD(T)
  3. 7 AD(T)=AD(T)+47104:NEXT
  4. 10 ZA$(1)="(1-[194]YTE-[218]AHL) "
  5. 11 ZA$(2)="(2-[194]YTE-[218]AHL) "
  6. 12 ZA$(3)="(ON/OFF)      "
  7. 13 ZA$(4)="(TURBO/SERIAL)"
  8. 19 POKE53281,0:POKE53280,0
  9. 20 PRINTCHR$(14)"[147][154][193]SS[194]LASTER+[211]YSTEM           [208]REFS[201]NSTALL[146]";
  10. 30 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  11. 40 GOSUB4000
  12. 50 GOSUB5000
  13. 60 PRINT"[215]ERTE AENDERN [J/N]?"
  14. 65 GETA$:IFA$="J"THEN70
  15. 66 IFA$<>"N"THEN65
  16. 67 GOTO6000
  17. 70 GOSUB3500:GOSUB5000:ED=1
  18. 75 FORT=0TO17:W=T
  19. 76 PRINT""P$(T);ZA$(X(T)):GOSUB5025
  20. 78 PRINT"[145]";:GOSUB2000
  21. 79 FORX=20TO24:POKE781,X:SYS59903:NEXTX
  22. 80 POKEAD(T),LO:IFX(T)=2THENPOKEAD(T)+1,HI
  23. 85 NEXT:GOTO50
  24. 1000 DATA"[210][193][205]-[211]TART       :",2,2063
  25. 1010 DATA"[210][193][205]-[197]NDE        :",2,2065
  26. 1020 DATA"[207]PCODETABULATOR :",1,2194
  27. 1030 DATA"[205]NEMNONICTABUL. :",1,2195
  28. 1040 DATA"[195]OMMENTTABULATOR:",1,2196
  29. 1050 DATA"[198]ASTSCROLLSPEED :",1,2197
  30. 1060 DATA"[193]RROWSPEED      :",1,2198
  31. 1070 DATA"[194]ORDERCOLOUR    :",1,2199
  32. 1080 DATA"[194]ACKGROUNDCOLOUR:",1,2200
  33. 1090 DATA"[211]CRIPTCOLOUR    :",1,2201
  34. 1100 DATA"[195]URSORCOLOUR    :",1,2202
  35. 1110 DATA"[193]RROWCOLOUR     :",1,2203
  36. 1115 DATA"[205]ENUELINECOLOUR :",1,2204
  37. 1120 DATA"[208]REFTAKEMODE    :",1,2207
  38. 1125 DATA"[207]BJECTDRIVE     :",1,2208
  39. 1130 DATA"[214]ISFASTLOAD(*2) :",3,2206
  40. 1140 DATA"[193]SSEMBLERMODE   :",4,2180
  41. 1150 DATA"[204]ONGASSEMBLY    :",3,2205
  42. 2000 REM INPUT
  43. 2020 POKE19,1:INPUTZA$:POKE19,0:PRINT
  44. 2030 ONX(T)GOTO2100,2200,2300,2400
  45. 2100 REM EIN-BYTE-ZAHL
  46. 2110 GOSUB3000:IFHI>0THEN 2000
  47. 2120 RETURN
  48. 2200 REM ZWEI-BYTE-ZAHL
  49. 2210 GOTO3000:REM RETURN
  50. 2300 REM ON/OFF
  51. 2310 HI=0:IFZA$="OFF"THENLO=0:RETURN
  52. 2315 IFZA$<>"ON"THENGOTO2000
  53. 2320 LO=1:RETURN
  54. 2400 HI=0:LO=ASC(ZA$+CHR$(0)):IFLO<84ANDLO>85THEN2000
  55. 2410 RETURN
  56. 3000 REM HEXDEZ WANDLER
  57. 3010 Z=0:B=16
  58. 3020 IFLEFT$(ZA$,1)<>"$"THENB=10:GOTO3030
  59. 3025 ZA$=RIGHT$(ZA$,LEN(ZA$)-1)
  60. 3030 FORS=1TOLEN(ZA$):H=ASC(MID$(ZA$,S))-48:Z=Z*B+H+7*(H>9):NEXT
  61. 3050 HI=INT(Z/256):LO=Z-HI*256
  62. 3060 RETURN
  63. 3100 REM DEZHEX WANDLER
  64. 3110 ZA$="":FORP=0TO0:Z=Z/16:S=(Z-INT(Z))*16:ZA$=CHR$(55+S+7*(S<10))+ZA$:P=-Z
  65. 3115 NEXT:ZA$="$"+ZA$
  66. 3120 RETURN
  67. 3500 REM LOESCHER
  68. 3510 FORX=2TO24:POKE781,X:SYS59903:NEXT:RETURN
  69. 3600 REM WAITER
  70. 3610 POKE198,0:WAIT198,1:POKE198,0:RETURN
  71. 4000 REM LOADPREFS
  72. 4010 GOSUB3500:PRINT "  [194]ITTE [193]SS[194]LASTER+ [196]ISKETTE EINLEGEN!":GOSUB3600
  73. 4015 GOSUB3500:PRINT "             [194]ITTE WARTEN!"
  74. 4020 OPEN2,8,2,"BED,P,R":IFST=0THEN4026
  75. 4025 CLOSE2:GOTO4000
  76. 4026 Y=49163
  77. 4030 GET#2,A$:A=ASC(A$+CHR$(0))
  78. 4040 POKEY,A:Y=Y+1
  79. 4050 IFST=0THEN4030
  80. 4060 CLOSE2:RETURN
  81. 5000 REM PRINTPREFS
  82. 5010 GOSUB3500:PRINT"" :ED=0
  83. 5020 FORW=0TO17:PRINT"        "P$(W);
  84. 5025 ZA=PEEK(AD(W)):IFX(W)=2THENZA=ZA+256*PEEK(AD(W)+1):Z=ZA:GOSUB3100:PRINTZA$
  85. 5030 IFX(W)<>3THEN5040
  86. 5031 IFPEEK(AD(W))=0THENPRINT"OFF":GOTO5050
  87. 5032 PRINT"ON"
  88. 5040 IFX(W)<>4THEN5050
  89. 5041 IFPEEK(AD(W))=ASC("S")THENPRINT"SERIAL":GOTO5050
  90. 5042 PRINT"TURBO"
  91. 5050 IFX(W)=1THENPRINTZA
  92. 5052 IFEDTHENRETURN
  93. 5055 NEXT:RETURN
  94. 6000 REM PREFSSAVE
  95. 6010 PRINT"[201]N DIESEM [218]USTAND ABSPEICHERN[J/N]?"
  96. 6020 GETA$:IFA$="J"THEN6100
  97. 6030 IFA$<>"N"THEN6020
  98. 6040 END
  99. 6100 GOSUB3500:PRINT"[194]ITTE WARTEN..."
  100. 6110 OPEN1,8,15,"S:BED":CLOSE1
  101. 6120 OPEN2,8,2,"BED,P,W"
  102. 6130 PRINT#2,CHR$(13)CHR$(8);
  103. 6140 Z=49165
  104. 6150 PRINT#2,CHR$(PEEK(Z));:Z=Z+1
  105. 6160 IFZ<YTHEN6150
  106. 6170 CLOSE2:PRINT"[147][198]ERTIG..."
  107.