home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos59.d64 / ultra-seq (.txt) < prev   
Commodore BASIC  |  1995-08-05  |  11KB  |  238 lines
  1. 1 MD=10916:SP=12094:GP=12156:OC=12230:CC=12233:CR=12465:WW=12592:RP=12628
  2. 2 POKE53280,.:POKE53281,.:POKE788,52:DIMA$(112):PRINTCHR$(142):SO=12955:EZ=13047
  3. 3 S=1:A=0:REM SET SOUND & ASCII CONVERT DEFAULTS   1=ON - 0=OFF
  4. 4 PRINT"[147][158]":K=7:A$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":GOSUB10
  5. 5 K=8:A$="[221]    ULTRA SEQ-PRINT    [221]":GOSUB10
  6. 6 K=9:A$="[221]      VERSION 5.5      [221]":GOSUB10
  7. 7 K=10:A$="[221]  R.W. (BOB K7) KOBER  [221]":GOSUB10
  8. 8 K=11:A$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":GOSUB10
  9. 9 GOSUB229:ON-(PEEK(2025)=7)GOTO13:GOTO25
  10. 10 M=LEN(A$):FORI=1TOM/2:PRINT"":FORJ=1TOK:PRINT"";:NEXT
  11. 11 PRINTSPC(20-I)LEFT$(A$,I)RIGHT$(A$,I):NEXT
  12. 12 RETURN
  13. 13 FORI=1TO1000:NEXT:FORI=1TO8:SYS59626:NEXT:POKE2025,2
  14. 14 K=6:A$="[150]THESE M/L ROUTINES ARE USED ":GOSUB10
  15. 15 K=7:A$="[155][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] ":GOSUB237:GOSUB10:GOSUB229
  16. 16 K=9:A$="[159]READ/PRINT/SCROLL":GOSUB237:GOSUB10:GOSUB229
  17. 17 K=11:A$="[153]MI'S  DIRECTORY":GOSUB237:GOSUB10:GOSUB229
  18. 18 K=13:A$="[156]IT'S CURTAINS":GOSUB237:GOSUB10:GOSUB229
  19. 19 K=15:A$="[129]2-COL. READ":GOSUB237:GOSUB10:GOSUB229
  20. 20 K=17:A$="[154]SNAP-SHOT":GOSUB237:GOSUB10:GOSUB229
  21. 21 K=19:A$="[158]EZDIR":GOSUB237:GOSUB10:GOSUB229
  22. 22 K=23:A$="[151]ANY KEY TO START[145]":GOSUB10:POKE198,.:WAIT198,1:POKE198,0
  23. 23 POKE150,160:SYSSP:GOTO25
  24. 24 POKE150,160:SYSGP:POKE198,.:WAIT198,1:POKE198,.
  25. 25 POKE53280,.:POKE53281,.
  26. 26 SYSCC:POKE53272,21:PRINT"[147]"TAB(8)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  27. 27 PRINTTAB(8)"[221]      MAIN MENU      [221]"
  28. 28 PRINTTAB(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  29. 29 FORI=1TO300:NEXT:POKE2,5:POKE878,20:SYSOC
  30. 30 IFBOBTHENPOKE150,168:SYSGP:GOTO49
  31. 31 PRINTTAB(43)"USE      EMBEDDED <CR>      IGNORE"
  32. 32 PRINTTAB(2)"[150][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]"
  33. 33 PRINTTAB(3)"[158][169]  [223][146][150]                         [158][129][169]  [223][155][146]"
  34. 34 PRINTTAB(3)"[158] F1 [146][150]  SEND OUTPUT TO SCREEN  [129] F2 [146]"
  35. 35 PRINTTAB(3)"[158][223]  [146][169][150]                        [158] [129][223]  [146][169]"
  36. 36 PRINTTAB(42)"[154][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]"
  37. 37 PRINTTAB(3)"[149][169]  [223][146]                         [156][169]  [223]"
  38. 38 PRINTTAB(3)"[149] F3 [146]  [154]40 COLUMNS TO PRINTER  [156] F4 [146]"
  39. 39 PRINTTAB(3)"[149][223]  [146][169]                         [156][223]  [146][169]"
  40. 40 PRINTTAB(42)"[153][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]"
  41. 41 PRINTTAB(3)"[152][169]  [223][146]                         [150][169]  [223]"
  42. 42 PRINTTAB(3) "[152] F5 [146] [153] 80 COLUMNS TO PRINTER  [150] F6 [146]"
  43. 43 PRINTTAB(3)"[152][223]  [146][169]                         [150][223]  [146][169]"
  44. 44 PRINTTAB(42)"[156][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]"
  45. 45 PRINTTAB(3)"[169]  [223][146]                         [169]  [223]"
  46. 46 PRINTTAB(3) " F7 [146][156] DISK HOUSEKEEPING  [129]QUIT  F8 [146]"
  47. 47 PRINTTAB(3)"[223]  [146][169]                         [223]  [146][169]"
  48. 48 IFBO=0THENBOB=1:POKE150,168:SYSSP
  49. 49 POKE198,.:CLOSE15:OPEN15,8,15:GOTO231
  50. 50 GETA$:ON-(A$="A")GOTO99:ON-(A$="S")GOTO230:IFA$<"[133]"ORA$>CHR$(141)THEN50
  51. 51 F$=RIGHT$(STR$(ASC(A$)-132),1)
  52. 52 ON(ASC(A$)-132)GOTO53,55,57,128,54,56,58,123,228:GOTO50
  53. 53 GOSUB75:GOSUB59:GOTO71
  54. 54 F$="2":GOTO53
  55. 55 F$="3":POKE600,0:GOSUB76:GOSUB59:ONCOLGOTO70,195
  56. 56 F$="4":POKE600,1:GOSUB76:GOSUB59:ONCOLGOTO70,195
  57. 57 F$="5":GOSUB77:GOSUB59:GOTO70
  58. 58 F$="6":GOSUB77:GOSUB59:GOTO70
  59. 59 PRINT"":POKE214,X-2:PRINT:PRINT"[152]  ($=DIRECTORY M=MENU)[145][145]"
  60. 60 POKE19,32:INPUT"[158]  ENTER SEQ FILENAME [153]$[157]";FF$
  61. 61 IFFF$="M"THEN30
  62. 62 IFFF$<>"$"THENSYSCC:X1=34:RETURN
  63. 63 CLOSE15:OPEN15,8,15:IFFF$="$"THENPRINT#15,"I":INPUT#15,E,E$:IFETHENPRINT"[147]":GOSUB119
  64. 64 IFETHEN26
  65. 65 SYSCC:PRINTCHR$(142):SYSMD:PRINT:CLOSE15:OPEN15,8,15:SYSCC
  66. 66 IFPEEK(598)=34THEN26
  67. 67 X1=0:FF$=""
  68. 68 FF=PEEK(580+X1):IFFF=34THENRETURN
  69. 69 FF$=FF$+CHR$(FF):X1=X1+1:GOTO68
  70. 70 OPEN4,4,7:GOSUB112:IFQQTHEN26
  71. 71 OPEN2,8,2,FF$:GOSUB118:ON-(E<>0)GOTO26:GOSUB84
  72. 72 CLOSE2:CLOSE4:SYS65511:OPEN15,8,15:X1=0
  73. 73 GOSUB81:POKE214,23:PRINT:PRINT"        [150] [208]RESS F5 FOR THE [205]ENU [146]        [145]"
  74. 74 GETA$:ON-(A$<>CHR$(135))GOTO74:GOTO26
  75. 75 FORX=6TO8:POKE781,X:SYS59903:NEXT:RETURN
  76. 76 FORX=11TO13:POKE781,X:SYS59903:NEXT:GOSUB78:RETURN
  77. 77 FORX=16TO18:POKE781,X:SYS59903:NEXT:RETURN
  78. 78 POKE214,11:PRINT:PRINTTAB(6)"1[146] OR [154]2[146] COLUMNS?"
  79. 79 GETCOL$:IFCOL$<"1"ORCOL$>"2"THEN79
  80. 80 COL=VAL(COL$):RETURN
  81. 81 ON-(S=0)GOTO236:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
  82. 82 POKE54276,23:FORY=1TO3:F2=8:POKE54273,2:FORX=1TO5:POKE54287,F2:F2=F2*1.4
  83. 83 NEXT:NEXT:FORW=1TO8:POKE54287,F2:F2=F2*1.07:NEXT:POKE54278,15:RETURN
  84. 84 RP$="[208][210][201][206][212][197][210]":IFF$="1"ORF$="2"THENRP$="[210][197][193][196][197][210] "
  85. 85 SYSCC:PRINTCHR$(14):PRINT"[147]"TAB(2)"[144]***********************************"
  86. 86 PRINTTAB(2)"*    [198]"F$" [213][204][212][210][193][160][211][197][209]-[198][201][204][197][160]"RP$"    *"
  87. 87 PRINTTAB(2)"***********************************"
  88. 88 POKE214,23:PRINT:PRINT"[200]OLD SHIFT TO PAUSE - [208]RESS F6 TO ABORT[145][145]"
  89. 89 FORI=1TO300:NEXT:POKE2,12:POKE878,20:SYSOC
  90. 90 POKE214,23:PRINT:PRINT"[150][200]OLD SHIFT TO PAUSE - [158][208]RESS F6 TO ABORT[145][145]"
  91. 91 ONVAL(F$)GOTO92,93,94,95,96,97
  92. 92 SYSRP,40,0,0:X1=0:RETURN
  93. 93 SYSRP,39,1,0:X1=0:RETURN
  94. 94 GOSUB98:SYSRP,40,0,1:X1=0:RETURN
  95. 95 GOSUB98:SYSRP,39,1,1:X1=0:RETURN
  96. 96 GOSUB98:SYSRP,80,0,1:XI=0:RETURN
  97. 97 GOSUB98:SYSRP,79,1,1:XI=0:RETURN
  98. 98 FORI=1TO5:PRINT#4:NEXT:RETURN
  99. 99 A=1-A:POKE820,A
  100. 100 GOTO234
  101. 101 POKE198,.:WAIT198,1:FORX=11TO13:POKE781,X:SYS59903:NEXT:PRINT"[145][145][145][145]":GOTO310
  102. 102 ON-(S=0)GOTO236:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
  103. 103 POKE54276,21:POKE54287,40:FORZ=1TOT:FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1
  104. 104 FORF1=0TO255STEP50:POKE54273,F1:NEXTF1:NEXTZ:FORF2=15TO0STEP-.1
  105. 105 POKE54296,F2:NEXT:POKE54277,128:POKE54278,250:RETURN
  106. 106 ON-(S=0)GOTO236:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  107. 107 POKE54277,8:POKE54278,255:POKE54276,23
  108. 108 FORZ=1TO1:F1=10:FORY=1TO6:F2=30:POKE54273,F1:FORX=1TO3:POKE54287,F2
  109. 109 F2=F2/1.2:NEXTX:F1=F1*1.5:NEXTY:FORW=1TO30:POKE54273,F1
  110. 110 POKE54287,5:FORV=1TO5:NEXTV
  111. 111 F1=F1/1.5:NEXTW:NEXTZ:POKE54278,15:RETURN
  112. 112 CLOSE4:IFST=0THENOPEN4,4,7:QQ=0:RETURN
  113. 113 PRINT"[150]      THE PRINTER IS NOT ON LINE"
  114. 114 PRINT"     TURN IT ON, AND PRESS ANY KEY"
  115. 115 PRINT"        PRESS F5 FOR THE MENU":GOSUB106
  116. 116 WAIT198,1:GETA$:IFA$="[135]"THENQQ=1:RETURN
  117. 117 OPEN4,4,7:GOTO112
  118. 118 INPUT#15,E,E$:IFE=0THENRETURN
  119. 119 PRINT"[147]         DISK ERROR ENCOUNTERED"
  120. 120 PRINTTAB(20-LEN(E$)/2)E$:GOSUB106
  121. 121 PRINT"          ANY KEY TO CONTINUE"
  122. 122 WAIT198,1:CLOSE2:CLOSE4:RETURN
  123. 123 K=21:A$=" [158]     ARE YOU SURE?     ":GOSUB10
  124. 124 WAIT198,1:GETA$:ON-(A$="Y")GOTO126:PRINT"[145][145][145]"
  125. 125 GOTO30
  126. 126 PRINT"[150]";:PRINTTAB(8)" USE ULTRA AGAIN, SOON "
  127. 127 POKE198,.:T=3:GOSUB102:SYS65126
  128. 128 FF=0
  129. 129 PRINT"[155]":POKE214,8:PRINT
  130. 130 PRINTTAB(6)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  131. 131 PRINTTAB(6)"[221