home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PCGTERMHAYES.ARC / BOOT (.txt) next >
Commodore BASIC  |  2019-04-13  |  3KB  |  76 lines
  1. 10 REM "  "
  2. 20 POKE53281,.:POKE53280,.:IFPEEK(2056)=32THENGOSUB180
  3. 30 ONAGOTO150,155,160
  4. 35 GOSUB450:MD=PEEK(2056):FT=PEEK(2057)
  5. 40 :
  6. 50 PRINT"[147][150]               [188][146][185][185][185][185][185][185][185][185][185][185][185][150][190]          [188]
  7. 60 [153]"DEF         COS ANDDEF    ANDANDANDANDANDANDANDANDAND   DEF  "[163]37)"POSPOS"
  8. 70 [153]"DEF               *WAIT       "[163]27)"  ABS
  9. 80 PRINT"  "TAB(9)"  [183][183][183][183][183][183][183][183][183][183][183][183][183][183]   [150]  "TAB(37)"[187] "
  10. 90 PRINT"[150]  "TAB(10)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][150]"TAB(27)"[187]          [172]
  11. 100 [151]L,5:[153]"WAITPRINT(null)LENCHR$ (null)ERM (null).5 ^OR^OR^OR^OR^OR^OR^OR^OR^OR^OR^OR^OR^OR^
  12. 110 PRINT"[129][173][189][173][189][173][189][173][189][173][189][173][189][154][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173][189][173] [159]BY EGBELL":B$="[156][150]  ":C$=" [150] [146] - "
  13. 120 PRINTTAB(9)"[153]([195])OPYRIGHT 1988
  14. 130 [153][163]15)"EGBELL":[153][163]8)"PRINTATNLL (null)IGHTS (null)ESERVED
  15. 140 A=1:LOAD "FONT."+F0NT$(FT),8,1
  16. 150 POKE53272,(PEEK(53272)AND240)OR10:A=2:LOAD"PCGTERM.OBJ",8,1
  17. 155 A=3:LOAD"PCGTERM LOGO",8,1
  18. 160 PRINT"[147][144]LOAD"CHR$(34)"PCGTERM "MD$(MD)CHR$(34)",8
  19. 170 [153]"POKE198,.:RUN":[129]X[178]631[164]640:[151]X,13:[130]:[151]198,10:[128]
  20. 180 [131] 1650,1660,HAYES,MITEY MO,6480,256
  21. 190 [153]"LOAD(null)ELECT (null)OUR (null)ODEM (null)YPE"
  22. 200 [153]
  23. 210 [153]"PRINT[1PRINT] 1650
  24. 220 PRINT"[153][2[153]] 1660
  25. 230 [153]"PRINT[3PRINT] LEFT$AYES / 1670"
  26. 240 [153]"PRINT[4PRINT] (null)ITEY (null)O
  27. 250 PRINT"[153][5[153]] 6480 [214]OLKSMODEM
  28. 260 [161]A$:[139]A$[178]""[137]260
  29. 270 [139]A$[179]"1"[176]A$[177]"5"[137]260
  30. 280 MT[178][197](A$)[175]15:[151]2056,MT
  31. 281 :
  32. 282 [131] CBM SET,EASY READ,TRILLIUM,DISCONNECT,BUBBLE,SCRIPT,ROMAN,BLOCK
  33. 283 [131] COMPUTER,TYPEWRITER,HAMPTON,ITALICSCRIP,GOTHIC,ITALICS,PRINTER,256
  34. 284 :
  35. 290 [153]"LOADVALNTER STR$EFAULT LENHARACTER ASCONT"
  36. 300 [153]"1PRINT LENPEEK(null) (null)ET"   [163]20)"9PRINT  LENOMPUTER"
  37. 310 [153]"2PRINT VALASY (null)EAD" [163]20)"10PRINT (null)YPEWRITER"
  38. 320 [153]"3PRINT (null)RILLIUM"  [163]20)"11PRINT LEFT$AMPTON"
  39. 330 [153]"4PRINT STR$ISCONNECT"[163]20)"12PRINT RIGHT$TALICSCRIP"
  40. 340 [153]"5PRINT PEEKUBBLE"    [163]20)"13PRINT CHR$OTHIC"
  41. 350 [153]"6PRINT (null)CRIPT"    [163]20)"14PRINT RIGHT$TALICS"
  42. 360 [153]"7 (null)OMANPRINT"    [163]20)"15PRINT (null)RINTER"
  43. 370 [153]"8PRINT PEEKLOCK"     [163]20)" PRINT        "
  44. 390 [153]:[133]"(null)ELECT ATN ASCONT  7CMDCMDCMDLIST";FT$
  45. 395 FT[178][197](FT$):[139]FT[179]1[176]FT[177]15[137]290
  46. 400 [153]:[133] "(null)ERIFY  YCMDCMDCMDLIST";C$:[139]C$[179][177]"Y"[137]290
  47. 410 [151]2057,FT:[153]:[153]"(null)LEASE (null)AIT... PRINT(null)AKING YOUR BOOT..."
  48. 420 [159]15,8,15,"S0:BOOT"
  49. 425 [148] "BOOT",8:[149]"BOOT",8
  50. 430 [137]500
  51. 441 :
  52. 442 :
  53. 450 [134] F0NT$(20):MD[178]1:FT[178]1
  54. 455 [135] MD$(MD):[139] MD$(MD)[178]"256"[137]465
  55. 460 MD[178]MD[170]1:[137]455
  56. 465 [135] F0NT$(FT):[139] F0NT$(FT)[178]"256"[167] [142]
  57. 470 FT[178]FT[170]1:[137]465
  58. 491 :
  59. 492 :
  60. 500 [153]"LOAD    (null)O MAKE A  DIFFERENT BOOT, LOAD"
  61. 510 [153]"PEEK(null)(null)(null).PEEK(null) AND (null)(null)(null) IT.  (null)HIS ALLOWS YOU TO"
  62. 520 [153]"SPECIFY YOUR MODEM TYPE AND PREFERRED
  63. 525 PRINT"CHARACTER SET.  [206]OW, WHEN YOU [194][207][207][212] [208][195][199]
  64. 526 [153]"(null)ERM, YOU WILL BE CONFIGURED ACCORDING
  65. 527 PRINT"TO THE SPECIFICATIONS YOU JUST MADE.":PRINT:PRINT
  66. 530 PRINT"    [212]HANKS TO [205]ICHAEL [202]. [195]ONFORTI
  67. 540 [153]"FOR THE FONTS.  (null)HEY ARE INCLUDED IN
  68. 550 PRINT"HIS 1670 [198]AST[212]ERM PROGRAM, AN EXCELLENT
  69. 560 [153]"TERMINAL FOR THE 1670 (null)ODEM.  (null)O CREATE
  70. 570 PRINT"YOUR OWN FONT AND INCLUDE IT, IT MUST
  71. 580 [153]"START AT ADDRESS 10240, AND THE NAME OF
  72. 590 PRINT"OF THE FILE MUST START WITH '[198][207][206][212].'
  73. 595 [153]:[153]
  74. 600 [153][163]30)"DEFEGBELL"
  75. 610 [153]:[153]:[153]"RUNONON";
  76.