Skip to content

Instantly share code, notes, and snippets.

@jgrahamc

jgrahamc/ablearcher.bas

Created June 27, 2017 21:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jgrahamc/901b26c6fe8f5af6a9622396b991203e to your computer and use it in GitHub Desktop.
Save jgrahamc/901b26c6fe8f5af6a9622396b991203e to your computer and use it in GitHub Desktop.
Download ZIP
Code from Deutschland 83 episode 3
Raw
ablearcher.bas
10 CLS
20 FOR I = 1 TO 64
30 FOR P = 1 TO 6
40 FOR Q = 1 TO 5
50 A=48+RND(1)*9
60 A$=A$+CHR$(A)
70 NEXT Q
80 A$=A$+" "
90 NEXT P
100 PRINT" ";A$:A$=""
110 NEXT I
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment