home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / TRNSPLNTBAS.ARC / TRANSPLANT.BASIC (.txt) < prev   
GEOS ConVerT  |  2019-04-13  |  4KB  |  141 lines
  1. Transplant.basic$
  2. PRG formatted GEOS file V1.0
  3. Epson FX-80
  4. HeaderEditor
  5. BLASTER'S CONVERTER V2.5
  6. CONVERT(DA)
  7. Transplant
  8. basic data  V1.0
  9. Dale Huffman
  10. basic
  11. Must be run from GeoBasic. Installs "NewFont" into GeoTerm2.0 64
  12. ^^^^^
  13. basic
  14. A COPY of GeoTerm2.0 64
  15. called "GeoTerm 2". Must be
  16. on the work disk with 
  17. "NewFont" and "Transplant".
  18.    Has this been done ?
  19. Exit.
  20. There has been an error.
  21. "GeoTerm 2" and "NewFont"
  22. must be on the disk from
  23. which you run "Transplant"
  24. program info
  25. @Info
  26. @warn
  27. Program in GeoBasic by
  28.    DClay (QLink)
  29.    Dale Huffman (GEnie)
  30.      Success
  31. Save error : 
  32. # ErrStat
  33. Check for write tab on,
  34. file locked, etc.
  35. cked, etc.
  36. Start
  37. abortu,
  38. *"GeoTrmFntTrans.2" 01/02/93 DRH*
  39. *****************************
  40.  @Rdrw
  41.  @errn
  42. *****************************
  43.   @Rdrw
  44.  0,0,319,199
  45.  1,0,0
  46. "GTrm"
  47. *****************************
  48.  @warn
  49.  1,100,112
  50. "warn",warn
  51.  warn
  52.  @FIN
  53. **  load GTrm  **************
  54.  @Start
  55.  0,0,0
  56.  16,44000
  57.  6,3000
  58.  49804
  59.  49783
  60. **  load fonts  *************
  61.  8,"geoFont  V1.4",1
  62.  "NewFont"
  63.  16,44030
  64.  6,800
  65.  49804
  66.  16,45393
  67.  6,1000
  68.  49804
  69.  16,44807
  70.  6,700
  71.  49804
  72.  49783
  73. **  output file  ************
  74.  @Opn
  75.  6,2372
  76.  16,44000
  77.  49807
  78.  49783
  79. *****************************
  80.  @FIN
  81.  49783
  82.  1,100,112
  83.  "done"
  84. *****************************
  85.  @Opn
  86.  6,"GeoTerm64  2.0",1
  87.  "GeoTerm 2"
  88. *****************************
  89.  @errn
  90.  1,100,112
  91.  "errn"
  92.  @FIN
  93. *****************************
  94.  @Info
  95.  "info"
  96.  @Rdrw
  97. *****************************
  98. ************
  99.  8,"geoFont  V1.4",1
  100.  "New    
  101.  6,2372
  102.  16,44000
  103.  49807
  104.  49783
  105.   File
  106. closd
  107.  @success
  108.  1,100,112
  109.  "sverr"
  110.  @FIN
  111. *****************************
  112.  @FIN
  113.  File
  114.  49783
  115.  1,100,112
  116.  "done"
  117. *****************************
  118.  @Opn
  119.  6,"GeoTerm64  2.0",1
  120.  "GeoTerm 2"
  121.   File
  122. *****************************
  123.  @errn
  124.  1,100,112
  125.  "errn"
  126.  @FIN
  127. *****************************
  128.  @Rdrw
  129.  0,0,319,199
  130.  1,0,0
  131. "GTrm"
  132. *****************************
  133.  @Info
  134.  "info"
  135.  @Rdrw
  136. *****************************
  137.  @success
  138.  1,100,112
  139.  "suces"
  140.  @FIN
  141.