home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07a.d64 / sogwap.ad (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  19 lines
  1. 10 print"[147]   [194] [201] [199]   [194] [204] [213] [197]   [210] [197] [193] [196] [197] [210]  4.1 ":print"[155][210]ead/[215]rite [205][211]-[196][207][211] disks on your [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.":print"  [210]equires: 1571 or 1581 [196]isk [196]rive or"
  2. 20 print"[150]  use [195][205][196]'s [198][196]-2000/4000 to read/write    special formatted 1.44 [205][211]-[196][207][211] disks.":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]."
  3. 30 print"   [155][201]ncludes both [195]64 & [195]128 programs:":print"    [194][194][210] 128/64 [214]ersion 4.1 only $35":gosub70:print"[147]     [159] [194] i b l e   [211] e a r c h  3.2 ":print"[155][211]oftware for [204]ife! - 2[195]or 10:5 [210]om 10:9"
  4. 40 print"[197]ntire [207]ld & [206]ew [212]estament [194]ible text     on 4-1541/71 or 2-1581 disks.":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.]"
  5. 50 print"[154][193]uto spell checking of 12,000+ words,":print"[211]earch using: [211]ingle & [205]ultiple word(s) ie. [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"
  6. 60 print" [203][202][214] $39.95 / [206][201][214] $49.95 / [194]oth $75.00":gosub70:goto10
  7. 70 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","<_>=[199]azette [205]enu"
  8. 80 ad=55296:c=peek(53280)-1:poke53280,c:fori=0to39:a=i:b=39-i:if(cand1)thena=39-i:b=i
  9. 90 pokead+40+a,c:pokead+19*40+b,c:next:geta$:ifa$=""then80
  10. 100 ifa$<>"_"thenreturn
  11. 1000 print"[147]          [204]oading [205]enu [208]rogram"
  12. 1001 print"             [208]lease [215]ait..."
  13. 1002 print"[144]new"
  14. 1003 print"load"+chr$(34)+"menu.advert"+chr$(34)+",8"
  15. 1004 print"run"
  16. 1005 poke 630+1,19
  17. 1010 fori=2to4:poke630+i,13:next
  18. 1020 poke198,4
  19.