60000 REM 60000UPROGEN     //UA,UA$
60001 PRINT"[147]UNTERPROGRAMMGENERATOR":PRINT"WELCHES UNTERPROGRAMM SOLL DAZUGELADEN"
60002 FORUA=1TO5:POKE631+UA,13:NEXT:INPUT"WERDEN (ZN O. NAME) ";UA$:IFUA$=""THENEND
60003 POKE631,19:POKE198,6:UA$=UA$+"*":IFLEFT$(UA$,1)<>"6"THENUA$="?????"+UA$
60004 PRINT"[147]P[207]43,(P[197](45)+256*P[197](46)-2)AND255":PRINT"P[207]44,(P[197](45)+256*P[197](46)-2)/256"
60005 PRINT"L[207]"CHR$(34)UA$CHR$(34)",8":PRINT"P[207]43,1:P[207]44,8":PRINT"R[213]60000":END