home *** CD-ROM | disk | FTP | other *** search
/ Cracknews 3 / Cracknews_3_1989-05_Welfare_Software_Boys.d64 / .0 (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  24 lines
  1. 5 print"[147]":poke808,252:poke53280,15:poke53281,15:poke646,6:poke53282,8:poke53283,1:poke53284,6:gosub350:sp$="                                      ":z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40:np=int(it/8):cp=0:gosub550
  2. 80 poke53265,peek(53265)or64:poke53280,15:poke53281,15:printchr$(142)"[147][142][144]----------------------------------------";:print"[160][160][160][160][160][160][160][195][210][193][195][203][206][197][215][211][161][224][193][208][210][201][204][175][205][193][217][224][177][185][184][185][160][160][160][160][160][160][160][160]";z$;:print"[160][160][160][160][168][195][169][160][194][217][160][215][197][204][198][193][210][197][160][211][207][198][212][215][193][210][197][160][194][207][217][211][160][201][206][212][174][160][160][160]";:print"[146][144]----------------------------------------";
  3. 130 s=cp*8:e=cp*8+7:ife>itthene=it
  4. 140 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";n$(i);:printleft$(sp$,36-len(n$(i)));:print"[146][144]----------------------------------------";:next:ifnp+1=1thenxz=1:print"":goto200
  5. 180 print"this is page #";cp+1;"of";np+1:print"press [210][197][212][213][210][206][146] for next page[145][145]"
  6. 200 print"[145][145][208][210][197][211][211][160][177][173][184][160][212][207][160][204][207][193][196][160][195][207][210][210][197][211][208][207][206][196][201][206][199][160][208][210][207][199][210][193][205][160]"
  7. 210 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then210
  8. 220 ifxz=1anda$=chr$(13)then210
  9. 230 ifxz=1then260
  10. 240 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  11. 250 ifa$=chr$(13)then80
  12. 260 fv=(asc(a$)-48):fv=fv+7*(fv>8):c=fv+cp*8-1:ifc>itthen210
  13. 280 sys65409:poke53280,15:poke53281,15:print"[147][142][155]load";chr$(34);f$(c);chr$(34);",8":i$="run":fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next:poke53280,15:poke53281,15:print"[155]";:printchr$(14)tab(18-len(f$(c))/2-4)"loading ";chr$(34)f$(c)chr$(34):printchr$(142)"           please stand by[155]"
  14. 340 poke631+i,13:poke631+i+1,28:poke631,13:poke198,i+1:end
  15. 350 open15,8,15,"i0":open1,8,8,"0:[192]4,s,r":input#15,en,em$:ifen>0then400
  16. 370 input#1,mo$:input#1,it:dimn$(it),f$(it):fori=0toit:input#1,n$(i):input#1,f$(i):next:close1:close15:return
  17. 400 close1:close15:print"[147][195]an't read [212]able of [195]ontents":print"[196]isk [197]rror:";en;em$:print"[195]heck:":print"1) [195]orrect disk inserted?:[153]"2) right$s drive door closed?:print"3) [193]ll cables attached?":print"[210]emove, then re-insert disk, press any  key to try again."
  18. 480 geta$:ifa$=""then480
  19. 490 run:geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then260
  20. 510 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  21. 520 fv=(asc(a$)-48):fv=fv+7*(fv>8):c=fv+cp*8-1:ifc>tthen260
  22. 540 poke53265,27:sys65409
  23. 550 poke53265,27:return
  24.