home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / pscardco.arc / BANNER.C (.txt) next >
Commodore BASIC  |  1993-04-28  |  2KB  |  57 lines
  1. 1 POKE818,32
  2. 2 REM 64/SETUP
  3. 3 REM(null)
  4. 5 GOTO18
  5. 8 REM(null)
  6. 11 POKE808,225:PRINT" [157]";:FORI=0TO40:GETA$:IFA$<>""THENRETURN
  7. 14 NEXT:PRINT" [146][157]";:FORI=1TO30:GETA$:IFA$<>""THENPRINT" [157]";:RETURN
  8. 17 NEXT:GOTO11
  9. 18 REM(null)
  10. 19 REM(null)
  11. 20 PRINT"[147][144]":POKE53281,1:POKE808,225:POKE818,32
  12. 21 REM(null)
  13. 22 REM(null)
  14. 23 PRINTCHR$(14+128)"BANNER HEADLINER"
  15. 26 PRINT"FOR THE COMMODORE 64"
  16. 29 PRINT"BY E.J. LIPPERT"
  17. 32 PRINT"FOR CARDCO, INC"
  18. 35 K=16:GOSUB77
  19. 38 PRINT"[147]":A$="WORKING":FORI=0TO21:PRINT""A$:A$=""+A$:FORK=1TO99
  20. 41 NEXT:NEXT
  21. 44 FORI=0TO400:NEXT
  22. 47 PRINT"[147]":POKE53280,14
  23. 50 PRINT""CHR$(14)"[215]HAT PRINTER ARE YOU USING ?"
  24. 53 PRINT"1. [197]PSON  [205] [216]  [211]ERIES"
  25. 56 PRINT"2. [197]PSON  [198] [216]  [211]ERIES"
  26. 59 PRINT"3. [211][212][193][210]  [199]EMINI [211]ERIES"
  27. 62 PRINT"4. [208]ROWRITER OR [195]-[201]TOH"
  28. 65 PRINT"[197]NTER YOUR CHOICE HERE   (1-4 PLEASE)[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  29. 68 GOSUB11:PU=VAL(A$):IF(PU=0)OR(PU>4)THENGOTO68
  30. 71 PRINT"[147]":POKE53280,5
  31. 74 GOTO113
  32. 77 PRINT"PRESS ANY KEY TO CONTINUE[146]
  33. 80 [151]53280,[181](K[173]4):K[178]K[170]1:[139]K[178]59[167]K[178]8
  34. 83 [139]K[178]48[167]K[178]52
  35. 86 [129]I[178]1[164]20
  36. 89 [161]A$:[139]A$[178]""[167][130]:[137]95
  37. 92 [137]104
  38. 95 [153]" PRESS ANY KEY TO CONTINUE WAIT"
  39. 98 [129]I[178]1[164]20
  40. 101 [161]A$:[139]A$[178]""[167][130]:[137]77
  41. 104 [151]53280,1:[142]
  42. 107 [137]107
  43. 110 [159]15,8,15:[132]15,A,B$,C,D:[153]A,B$,C,D:[160]15
  44. 113 [153]"LOAD(null)LEASE SELECT EITHER:"
  45. 116 [153]"1. CHR$OTHIC (null)TYLE (null)YPE"
  46. 119 [153]"          (null)(null)        "
  47. 122 [153]"2. (null)AGNETIC (null)TYLE (null)YPE"
  48. 125 [153]"VALNTER (null)OUR LENHOICE LEFT$ERE ";
  49. 128 [141]11:TS[178][197](A$):[139](TS[178]0)[176](TS[177]2)[167][137]128
  50. 129 [151]((256[172]2)[170](15[172]16)),PU:[145]TS[137]140,150
  51. 140 [151]198,6:[151]631,13:[151]632,147:[151]633,82:[151]634,85:[151]635,78:[151]636,13
  52. 141 [153]"LOAD"[199](34)"GOTHIC/64"[199](34)",8STOP"
  53. 142 [153]"STOPLOADING";:[128]
  54. 150 [151]198,6:[151]631,13:[151]632,147:[151]633,82:[151]634,85:[151]635,78:[151]636,13
  55. 151 [153]"LOAD"[199](34)"MAGTYPE/64"[199](34)",8STOP"
  56. 152 [153]"STOPLOADING";:[128]
  57.