Skip to content

Instantly share code, notes, and snippets.

@jgrahamc

jgrahamc/airwolf.bas

Created May 9, 2017 18:00
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jgrahamc/926a7854c2668f20edb58fe62ac3f99f to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jgrahamc/926a7854c2668f20edb58fe62ac3f99f to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. jgrahamc created this gist May 9, 2017.
    22 changes: 22 additions & 0 deletions airwolf.bas
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,22 @@
    1 PP=2
    10 HOME
    12 PRINT
    20 A$ = "0123456789ABCDEF"
    30 FOR I = 1 TO 19
    31 IF I = 9 THEN GOSUB 1000
    40 L$ = ""
    45 FOR J = 1 TO 9
    50 L1 = INT ( RND (1) * 15 ) + 1: L2 = INT ( RND (1) * 15 ) + 1
    60 L$ = L$ + MID$ (A$,L1,1) + MID$(A$,L2,1) + ": "
    65 IF I = 16 THEN GOSUB 1000
    70 NEXT J
    80 PRINT L$: NEXT I
    83 HOME
    94 HTAB 12: VTAB 10
    95 INPUT "ENTER PASSWORD: ";W$
    98 INPUT "";W$
    99 HOME
    100 PRINT " MEMORY DUMP PAGE: "
    105 PRINT
    110 GOTO 30
    1000 FOR Z = 1 TO 200: NEXT Z: RETURN