10 REM DIRTY HARRY SIMULATOR SAN FANCISCO 1.01 By Phil Hite 2021
   20 CLEAR 32767: BORDER 0: PAPER 0: INK 0: BRIGHT 1: CLS 
   30 LOAD ""CODE : LOAD ""SCREEN$ 
   40 RESTORE : READ g$: FOR y=0 TO 7: READ x: POKE USR g$+y,x: NEXT y: DATA "a",60,126,255,255,255,255,126,60
   50 INK 7: PRINT AT 0,0;"DIRTY HARRY SIMULATOR     CSSCGC";AT 1,0;"SAN FRANCISCO";AT 1,26;"MMXXI";AT 2,26;"PHIL";AT 3,26;"HITE"
   60 PRINT AT 20,0;"Press any key...": PAUSE 0
   70 PRINT AT 0,26;"      ";AT 1,26;"     ";AT 2,26;"    ";AT 3,26;"    "
   80 PRINT AT 20,0;"I know what you're thinkin'."
   90 PAUSE 100
  100 PRINT AT 20,0;CHR$ (34);"Did he fire six shots,         or only five?";CHR$ (34)
  110 PAUSE 100
  120 PRINT AT 20,0;"Well to tell you the truth,     in all this excitement,         "
  130 PRINT #0;AT 0,0;"I've kinda lost track myself."
  140 PAUSE 150
  150 PRINT AT 20,0;"But being this is a 44 Magnum,  the most powerful handgun"
  160 PRINT #0;AT 0,0;"in the world, and would blow    your head clean off.            "
  170 PAUSE 250
  180 PRINT AT 20,0;"You got to ask yourself         one question.                   "
  190 PRINT #0;AT 0,0;"                                                    "
  200 PAUSE 100
  210 PRINT AT 20,0;CHR$ (34);"Do I feel lucky?";CHR$ (34);"                           "             
  220 PAUSE 100
  230 PRINT AT 20,0;"Well do ya, punk?  "
  240 PAUSE 100
  250 PRINT #0;AT 1,0;"Press any key..."
  260 RANDOMIZE : LET l=INT (RND*2)
  270 IF INKEY$<>"" THEN GO TO 290
  280 GO TO 260
  290 IF PEEK 23560=13 THEN PAUSE 0
  300 PRINT #0;AT 1,0;"                "
  310 IF l=0 THEN PRINT AT 15,10; INK 6;"\a": PRINT AT 20,0;"BANG!            ": INK 0: PRINT USR 32800: BORDER 0: INK 7: PRINT AT 15,10;" ";AT 21,0;"Your luck just ran out!"
  320 IF l=1 THEN PRINT AT 20,0;"Click!           ": BEEP .01,56: PRINT AT 21,0;"Life sentence without parole!"
  330 PAUSE 0
  340 PRINT AT 20,0;"                                                                "
  350 GO TO 80
  360 SAVE "dh" LINE 10
  370 SAVE "dhsound"CODE 32800,1240
  380 SAVE "dhscreen"SCREEN$