home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01a.d64 / sogwap.ad (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  19 lines
  1. 1 print"[147]   [194] [201] [199]   [194] [204] [213] [197]   [210] [197] [193] [196] [197] [210]  4.1 ":print"  [155][198]irst & [204]ast software for the [195]64/128":print"[159][212]ransfers: [215]ord [208]rocessing, [212]ext, [193][211][195][201][201] & [194]inary files between [195]ommodore & [201][194][205]  ([205][211]-[196][207][211]) disks. [[198]ast and [197]asy to use.]"
  2. 2 print" [155][201]ncludes [195]ommodore 64 & 128 programs.":print"[210]equires: 1571 or 1581 [196]isk [196]rive, or":print"[150]use [195][205][196] [198][196]-2000/4000 to read/write      special formatted 1.44 [201][194][205] disks."
  3. 3 print"[158] [207]ptional [193][211][195][201][201][160]translation, converts:   [195]ommodore [193][211][195][201][201] and [211]creen [195]ode files   to/from [201][194][205] ([205][211]-[196][207][211]) [211]tandard [193][211][195][201][201].":print"[154][212]o[160]upgrade send $18 & original [194][194][210] disk"
  4. 4 print"   [194][194][210] 128/64 version 4.1 only $44.95":gosub7:print"[147]     [159] [194] i b l e   [211] e a r c h  3.2 ":print"[155]  [211]oftware for [204]ife! - [202]ohn 3:16;10:10":print"[197]ntire [207]ld & [206]ew [212]estament [194]ible text     on 4-1541/71 or 2-1581 disks."
  5. 5 print"[153][195]omplete [195]oncordance with[160]700,000+ words  indexed on 2-1541/71 or 1-1581 disks.":print"[158][201]ncredible[146] 5 sec. look-up time per/word,  per/disk.  [150][[214]ery [198]ast & [197]asy-to-[213]se.]":print"[154][193]uto spell checking of 12,000+ words,"
  6. 6 print"[211]earch using: [211]ingle & [205]ultiple word(s) ex. [198]ind every usage of [202]esus in 5 sec.":print"  [155][193]vailable on 7-1541 or 4-1581 disks:":print" [201]ncludes disk case, and printed manual":print" [203][202][214] $39.95 / [206][201][214] $49.95 / [194]oth $75.00":gosub7:goto1
  7. 7 poke53281,0:print"[159]   [211]end [195]heck, [205]oney [207]rder, or [195][207][196] to:":print" [211][207][199][215][193][208][160][211]oftware[146] ___ [208]h. 1-219-724-3900":print"  115 [194]ellmont [210]oad; [196]ecatur, [201][206] 46733":print"  <[211][208][193][195][197]>=[205]ore","<_>=[210]eturn to [205]enu"
  8. 8 ad=55296:c=peek(53280)-1:poke53280,c:fori=0to39:a=i:b=39-i:if(cand1)thena=39-i:b=i
  9. 9 pokead+40+a,c:pokead+19*40+b,c:next:geta$:ifa$=""then8
  10. 10 ifa$<>"_"thenreturn
  11. 11 print"[147]          [204]oading [205]enu [208]rogram"
  12. 12 print"             [208]lease [215]ait..."
  13. 20 print"[144]new"
  14. 30 print"load"+chr$(34)+"menu.advert"+chr$(34)+",8"
  15. 40 print"run"
  16. 1005 poke 630+1,19
  17. 1010 fori=2to4:poke630+i,13:next
  18. 1020 poke198,4
  19.