Maker Faire Eindhoven/TRS80Model102

Example programs i wrote for the yolo (this page is just for backup)

9 CLS
10 X=INT((240-11)*RND(1))
11 X=X+40
12 DISPLAY$="-NURDspace-"
13 DICE=INT(RND(1)*100)
14 IF DICE > 33 THEN DISPLAY$="---Hark!---"
15 IF DICE > 66 THEN DISPLAY$="-Wageningen"
17 IF DICE MOD 3 THEN PRINT@ 0, CHR$(27)+"p"
19 PRINT@ X,DISPLAY$
20 IF DICE MOD 3 THEN PRINT@ 0, CHR$(27)+"q"
100 GOTO 10