home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / anti-reset (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 100 poke53280,12:poke53265,12:poke53281,12:print"[147][144][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  2. 110 print"[193]nti [210]eset 64[144]"
  3. 120 print"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 130 print"[215]ritten by [207]. [205]usolf"
  5. 140 print"                 "
  6. 150 print"[158]--------------------"
  7. 160 print"[144][215]as soll nach dem [210]eset geschehen:"
  8. 170 print"1 [206]ichts"
  9. 180 print"2 [212]otaler [193]bsturz"
  10. 190 print"3 [211]prung zu einer [193]dresse":poke53265,27
  11. 200 print"[145][145][164][157]?":forx=1to80:next
  12. 210 geta$:ifval(a$)>0andval(a$)<4then230
  13. 220 print"[145][145] [157]?":forx=1to80:next:goto200
  14. 230 ifa$="1"then370
  15. 240 ifa$="2"then420
  16. 250 input"[215]elche [193]dresse (0-65536)";a$
  17. 260 a=val(a$):ifa>65536ora<0then100
  18. 270 ifa=0anda$<>"0"then100
  19. 280 ifa<>int(a)then100
  20. 290 hb=int(a/256):lb=a-hb*256
  21. 300 h$=right$(str$(hb),len(str$(hb))-1)
  22. 310 l$=right$(str$(lb),len(str$(lb))-1)
  23. 320 printchr$(9)"[147][196]amit nach einem [210]eset nach"a"ge-"
  24. 330 print"sprungen wird ist es noetig folgende"
  25. 340 print"[218]eilen zu ergaenzen:":gosub470
  26. 350 print"yyy [208][207][203][197]32768,"h$":[208][207][203][197]32769,"l$
  27. 360 poke198,0:wait198,1:goto100
  28. 370 printchr$(9)"[147][196]amit nach 'nem [210]eset nichts geschieht"
  29. 380 print"muessen sie ihr [208][210][199] um folgende [218]eilen"
  30. 390 print"ergaenzen:":gosub470
  31. 400 print"yyy [208][207][203][197]32768,164:[208][207][203][197]32769,7
  32. 410 [151]198,0:[146]198,1:[137]100
  33. 420 [153][199](9)"loadstr$amit nach einem (NULL)eset ein totaler atnb-"
  34. 430 [153]"sturz ausgeloest wird ist es notwendig"
  35. 440 [153]"folgende (NULL)eilen ins (NULL)rogramm zu nehmen:":[141]470
  36. 450 [153]"yyy (NULL)(NULL)(NULL)val32768,0:(NULL)(NULL)(NULL)val32769,5"
  37. 460 [151]198,0:[146]198,1:[137]100
  38. 470 [153]"xxx (NULL)(NULL)(NULL)val32772,195:(NULL)(NULL)(NULL)val32773,194:(NULL)(NULL)(NULL)val32      774,205:(NULL)(NULL)(NULL)val32775,56:";
  39. 480 [153]"(NULL)(NULL)(NULL)val32776,48":[142]
  40.