home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 April / 1986-04.d64 / input.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  856b  |  21 lines
  1. 10 f$="nt":print"[147]  this program will create a machine"
  2. 20 print"  language object file called
  3. 30 [153]"  "[199](34)"input.obj" [199](34)". you are given the
  4. 40 print"  option to save this file to tape or"
  5. 50 print"  disk. since the gazette disk is write
  6. 60 [153]"  protected "[199](34)"input.obj"[199](34)" has been created
  7. 70 print"  for you and is included on this disk.
  8. 80 [153]"  to create another copy, insert a"
  9. 90 [153]"  different disk or tape and press"
  10. 100 [153]"  <return>. press any other key to
  11. 110 print"  reload the menu."
  12. 120 poke198,0:wait198,1:getmt$
  13. 130 ifmt$=chr$(13)thenf$="input windows":ck=1
  14. 140 rem poke53280,14:poke53281,14:print"[147][154]load";chr$(34);f$;chr$(34);",8"
  15. 141 poke53280,14:poke53281,14:print"[147]":ifckthengosub190
  16. 142 print"[154]load";chr$(34);f$;chr$(34);",8"
  17. 160 a$=chr$(13)+"run"+chr$(13)
  18. 170 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  19. 180 new
  20. 190 print"       loading "chr$(34)"input windows"chr$(34):return
  21.